home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / bin_c / compile_to_c3.c < prev    next >
C/C++ Source or Header  |  2000-03-25  |  121KB  |  4,929 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.76Beta#1)--
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                  http://SmallEiffel.loria.fr/                --
  7. */
  8. #include "compile_to_c.h"
  9.  
  10.  
  11. void r146mapping_c_arg(T146* C,T0* a1){
  12. T0* _rt=NULL;
  13. _rt=X52run_type(r146result_type(C));
  14. /*[IF*/
  15. if(X52is_reference(_rt)){
  16. /*[IF*/
  17. if(X52is_reference(a1)){
  18. r146compile_to_c(C);
  19. }
  20. else{
  21. r146compile_to_c(C);
  22. }
  23. /*FI]*/
  24. }
  25. else{
  26. /*[IF*/
  27. if(X52is_reference(a1)){
  28. r146compile_to_c(C);
  29. }
  30. else{
  31. /*[IF*/
  32. if(X52need_c_struct(_rt)){
  33. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  34. T3 b1=((T3)'\46');
  35. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  36. }/*]*/
  37. /*]*/
  38. }
  39. /*FI]*/
  40. r146compile_to_c(C);
  41. }
  42. /*FI]*/
  43. }
  44. /*FI]*/
  45. }
  46.  
  47.  
  48. void r217make(T217* C,T68 a1,T0* a2,T0* a3){
  49. /*[IF*/
  50. if(((a2)!=((void*)(NULL)))||((a3)!=((void*)(NULL)))){
  51. {T218*n=((T218*)malloc(sizeof(*n))/*24*/);
  52. *n=M218;
  53. r218make(n,a1,a2,a3);
  54. (/*SFN*/C->_check_invariant)=((T0*)n);
  55. }
  56. }
  57. /*FI]*/
  58. }
  59.  
  60.  
  61. T0* r217add_comment(T217* C,T0* a1){
  62. T0* R=NULL;
  63. /*[IF*/
  64. if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)==(0))){
  65. R=((T0*)(C));
  66. }
  67.  else {/*AT*//*[IF*/
  68. if((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)==(1)){
  69. R=((T0*)(C));
  70. }
  71. else{
  72. {T224*n=((T224*)malloc(sizeof(*n))/*12*/);
  73. *n=M224;
  74. r224make(n,(T0*)C,a1);
  75. R=((T0*)n);
  76. }
  77. }
  78. /*FI]*/
  79. }
  80. /*FI]*/
  81. return R;
  82. }
  83.  
  84.  
  85. void r217compile_to_c(T217* C){
  86. /*[IF*/
  87. if((r47all_check((T47*)(oBC13run_control)))&&(((/*RF2*/(C)->_check_invariant/*4*/))!=((void*)(NULL)))){
  88. r218compile_to_c((T218*)((/*RF2*/(C)->_check_invariant/*4*/)));
  89. }
  90. /*FI]*/
  91. }
  92.  
  93.  
  94. void r217afd_check(T217* C){
  95. /*[IF*/
  96. if((r47all_check((T47*)(oBC13run_control)))&&(((/*RF2*/(C)->_check_invariant/*4*/))!=((void*)(NULL)))){
  97. r218afd_check((T218*)((/*RF2*/(C)->_check_invariant/*4*/)));
  98. }
  99. /*FI]*/
  100. }
  101.  
  102.  
  103. T6 r217use_current(T217* C){
  104. T6 R=0;
  105. /*[IF*/
  106. if((r47all_check((T47*)(oBC13run_control)))&&(((/*RF2*/(C)->_check_invariant/*4*/))!=((void*)(NULL)))){
  107. R=r218use_current((T218*)((/*RF2*/(C)->_check_invariant/*4*/)));
  108. }
  109. /*FI]*/
  110. return R;
  111. }
  112.  
  113.  
  114. T0* r217to_runnable(T217* C,T0* a1){
  115. T0* R=NULL;
  116. /*[IF*/
  117. if(r47all_check((T47*)(oBC13run_control))){
  118. /*[IF*/
  119. if(((/*RF2*/(C)->_current_type/*8*/))==((void*)(NULL))){
  120. (/*SFN*/C->_current_type)=a1;
  121. /*[IF*/
  122. if(((/*RF2*/(C)->_check_invariant/*4*/))!=((void*)(NULL))){
  123. (/*SFN*/C->_check_invariant)=r218to_runnable((T218*)((/*RF2*/(C)->_check_invariant/*4*/)),a1);
  124. }
  125. /*FI]*/
  126. R=((T0*)(C));
  127. }
  128. else{
  129. {T68 se_tmp0;
  130. {T217*n=((T217*)malloc(sizeof(*n))/*12*/);
  131. *n=M217;
  132. r217make(n,(*(se_tmp0=r217start_position(C),&se_tmp0)),NULL,(/*RF2*/((T218*)((/*RF2*/(C)->_check_invariant/*4*/)))->_list/*12*/));
  133. R=((T0*)n);
  134. }
  135. }
  136. R=r217to_runnable(((T217*)R),a1);
  137. }
  138. /*FI]*/
  139. }
  140. else{
  141. (/*SFN*/C->_current_type)=a1;
  142. R=((T0*)(C));
  143. }
  144. /*FI]*/
  145. return R;
  146. }
  147.  
  148.  
  149. T6 r217is_pre_computable(T217* C){
  150. T6 R=0;
  151. /*[IF*/
  152. if((r47all_check((T47*)(oBC13run_control)))&&(((/*RF2*/(C)->_check_invariant/*4*/))!=((void*)(NULL)))){
  153. R=r218is_pre_computable((T218*)((/*RF2*/(C)->_check_invariant/*4*/)));
  154. }
  155. else{
  156. R=1;
  157. }
  158. /*FI]*/
  159. return R;
  160. }
  161.  
  162.  
  163. T68 r217start_position(T217* C){
  164. T68 R={NULL,0};
  165. /*[IF*/
  166. if(((/*RF2*/(C)->_check_invariant/*4*/))!=((void*)(NULL))){
  167. R=(/*RF2*/((T218*)((/*RF2*/(C)->_check_invariant/*4*/)))->_start_position/*0*/);
  168. }
  169. /*FI]*/
  170. return R;
  171. }
  172.  
  173.  
  174. void r133declaration_in(T133* C,T0* a1){
  175. r7append(((T7*)a1),((T0*)ms14_7524a));
  176. r7extend(((T7*)a1),((T3)'\40'));
  177. r7extend(((T7*)a1),((T3)'\42'));
  178. r7append(((T7*)a1),(/*RF2*/(C)->_to_string/*12*/));
  179. r7extend(((T7*)a1),((T3)'\42'));
  180. }
  181.  
  182.  
  183. void r133make(T133* C,T0* a1,T68 a2){
  184. (/*SFN*/C->_to_string)=a1;
  185. (/*SFN*/C->_start_position)=a2;
  186. (/*SFN*/C->_to_key)=((/*UT*/(void)((T21*)(r133string_aliaser()))),r21for_prefix((/*RF2*/(C)->_to_string/*12*/)));
  187. }
  188.  
  189.  
  190. void r133undefine_in(T133* C,T0* a1){
  191. /*[IF*/
  192. /*AF*//*AE*/
  193. /*FI]*/
  194. }
  195. T0*oBC13string_aliaser=NULL;
  196. int fBC13string_aliaser=0;
  197.  
  198.  
  199. T0* r133string_aliaser(void){
  200. if(fBC13string_aliaser==0){fBC13string_aliaser=1;{
  201. {T21*n=((T21*)malloc(1));
  202. oBC13string_aliaser=((T0*)n);
  203. /*[IRF3.2make*//*[IRF3.6add1*/{T0* b1=((T0*)ms15_696);
  204. r23put((T23*)(oBC21memory),b1,b1);
  205. }/*]*/
  206. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1915);
  207. r23put((T23*)(oBC21memory),b1,b1);
  208. }/*]*/
  209. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_669);
  210. r23put((T23*)(oBC21memory),b1,b1);
  211. }/*]*/
  212. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1980);
  213. r23put((T23*)(oBC21memory),b1,b1);
  214. }/*]*/
  215. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9234);
  216. r23put((T23*)(oBC21memory),b1,b1);
  217. }/*]*/
  218. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6405);
  219. r23put((T23*)(oBC21memory),b1,b1);
  220. }/*]*/
  221. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12529);
  222. r23put((T23*)(oBC21memory),b1,b1);
  223. }/*]*/
  224. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9801);
  225. r23put((T23*)(oBC21memory),b1,b1);
  226. }/*]*/
  227. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16393);
  228. r23put((T23*)(oBC21memory),b1,b1);
  229. }/*]*/
  230. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12550);
  231. r23put((T23*)(oBC21memory),b1,b1);
  232. }/*]*/
  233. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4728);
  234. r23put((T23*)(oBC21memory),b1,b1);
  235. }/*]*/
  236. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10740);
  237. r23put((T23*)(oBC21memory),b1,b1);
  238. }/*]*/
  239. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12030);
  240. r23put((T23*)(oBC21memory),b1,b1);
  241. }/*]*/
  242. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14817);
  243. r23put((T23*)(oBC21memory),b1,b1);
  244. }/*]*/
  245. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6307);
  246. r23put((T23*)(oBC21memory),b1,b1);
  247. }/*]*/
  248. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6643);
  249. r23put((T23*)(oBC21memory),b1,b1);
  250. }/*]*/
  251. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12595);
  252. r23put((T23*)(oBC21memory),b1,b1);
  253. }/*]*/
  254. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_5508);
  255. r23put((T23*)(oBC21memory),b1,b1);
  256. }/*]*/
  257. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17448);
  258. r23put((T23*)(oBC21memory),b1,b1);
  259. }/*]*/
  260. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1216);
  261. r23put((T23*)(oBC21memory),b1,b1);
  262. }/*]*/
  263. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7928);
  264. r23put((T23*)(oBC21memory),b1,b1);
  265. }/*]*/
  266. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6776);
  267. r23put((T23*)(oBC21memory),b1,b1);
  268. }/*]*/
  269. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12804);
  270. r23put((T23*)(oBC21memory),b1,b1);
  271. }/*]*/
  272. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1168);
  273. r23put((T23*)(oBC21memory),b1,b1);
  274. }/*]*/
  275. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7576);
  276. r23put((T23*)(oBC21memory),b1,b1);
  277. }/*]*/
  278. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4956);
  279. r23put((T23*)(oBC21memory),b1,b1);
  280. }/*]*/
  281. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16692);
  282. r23put((T23*)(oBC21memory),b1,b1);
  283. }/*]*/
  284. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19124);
  285. r23put((T23*)(oBC21memory),b1,b1);
  286. }/*]*/
  287. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_921);
  288. r23put((T23*)(oBC21memory),b1,b1);
  289. }/*]*/
  290. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10680);
  291. r23put((T23*)(oBC21memory),b1,b1);
  292. }/*]*/
  293. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_64);
  294. r23put((T23*)(oBC21memory),b1,b1);
  295. }/*]*/
  296. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_368);
  297. r23put((T23*)(oBC21memory),b1,b1);
  298. }/*]*/
  299. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_61);
  300. r23put((T23*)(oBC21memory),b1,b1);
  301. }/*]*/
  302. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_246);
  303. r23put((T23*)(oBC21memory),b1,b1);
  304. }/*]*/
  305. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_62);
  306. r23put((T23*)(oBC21memory),b1,b1);
  307. }/*]*/
  308. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9408);
  309. r23put((T23*)(oBC21memory),b1,b1);
  310. }/*]*/
  311. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_242);
  312. r23put((T23*)(oBC21memory),b1,b1);
  313. }/*]*/
  314. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60);
  315. r23put((T23*)(oBC21memory),b1,b1);
  316. }/*]*/
  317. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_45);
  318. r23put((T23*)(oBC21memory),b1,b1);
  319. }/*]*/
  320. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_42);
  321. r23put((T23*)(oBC21memory),b1,b1);
  322. }/*]*/
  323. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_216);
  324. r23put((T23*)(oBC21memory),b1,b1);
  325. }/*]*/
  326. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1011);
  327. r23put((T23*)(oBC21memory),b1,b1);
  328. }/*]*/
  329. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_450);
  330. r23put((T23*)(oBC21memory),b1,b1);
  331. }/*]*/
  332. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8211);
  333. r23put((T23*)(oBC21memory),b1,b1);
  334. }/*]*/
  335. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_43);
  336. r23put((T23*)(oBC21memory),b1,b1);
  337. }/*]*/
  338. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_94);
  339. r23put((T23*)(oBC21memory),b1,b1);
  340. }/*]*/
  341. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_552);
  342. r23put((T23*)(oBC21memory),b1,b1);
  343. }/*]*/
  344. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_564);
  345. r23put((T23*)(oBC21memory),b1,b1);
  346. }/*]*/
  347. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_47);
  348. r23put((T23*)(oBC21memory),b1,b1);
  349. }/*]*/
  350. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_188);
  351. r23put((T23*)(oBC21memory),b1,b1);
  352. }/*]*/
  353. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_35);
  354. r23put((T23*)(oBC21memory),b1,b1);
  355. }/*]*/
  356. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035a);
  357. r23put((T23*)(oBC21memory),b1,b1);
  358. }/*]*/
  359. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11424);
  360. r23put((T23*)(oBC21memory),b1,b1);
  361. }/*]*/
  362. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2600);
  363. r23put((T23*)(oBC21memory),b1,b1);
  364. }/*]*/
  365. r21add2(((T0*)ms15_22524));
  366. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6702);
  367. r23put((T23*)(oBC21memory),b1,b1);
  368. }/*]*/
  369. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11776);
  370. r23put((T23*)(oBC21memory),b1,b1);
  371. }/*]*/
  372. r21add2(((T0*)ms15_29246));
  373. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13419);
  374. r23put((T23*)(oBC21memory),b1,b1);
  375. }/*]*/
  376. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765a);
  377. r23put((T23*)(oBC21memory),b1,b1);
  378. }/*]*/
  379. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1644);
  380. r23put((T23*)(oBC21memory),b1,b1);
  381. }/*]*/
  382. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19294);
  383. r23put((T23*)(oBC21memory),b1,b1);
  384. }/*]*/
  385. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1772);
  386. r23put((T23*)(oBC21memory),b1,b1);
  387. }/*]*/
  388. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15070);
  389. r23put((T23*)(oBC21memory),b1,b1);
  390. }/*]*/
  391. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15570);
  392. r23put((T23*)(oBC21memory),b1,b1);
  393. }/*]*/
  394. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27034);
  395. r23put((T23*)(oBC21memory),b1,b1);
  396. }/*]*/
  397. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15190);
  398. r23put((T23*)(oBC21memory),b1,b1);
  399. }/*]*/
  400. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15890);
  401. r23put((T23*)(oBC21memory),b1,b1);
  402. }/*]*/
  403. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19151);
  404. r23put((T23*)(oBC21memory),b1,b1);
  405. }/*]*/
  406. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13491);
  407. r23put((T23*)(oBC21memory),b1,b1);
  408. }/*]*/
  409. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_28490);
  410. r23put((T23*)(oBC21memory),b1,b1);
  411. }/*]*/
  412. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8750);
  413. r23put((T23*)(oBC21memory),b1,b1);
  414. }/*]*/
  415. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19437);
  416. r23put((T23*)(oBC21memory),b1,b1);
  417. }/*]*/
  418. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824a);
  419. r23put((T23*)(oBC21memory),b1,b1);
  420. }/*]*/
  421. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_23829);
  422. r23put((T23*)(oBC21memory),b1,b1);
  423. }/*]*/
  424. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27272);
  425. r23put((T23*)(oBC21memory),b1,b1);
  426. }/*]*/
  427. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10528);
  428. r23put((T23*)(oBC21memory),b1,b1);
  429. }/*]*/
  430. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13707);
  431. r23put((T23*)(oBC21memory),b1,b1);
  432. }/*]*/
  433. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6846);
  434. r23put((T23*)(oBC21memory),b1,b1);
  435. }/*]*/
  436. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1664);
  437. r23put((T23*)(oBC21memory),b1,b1);
  438. }/*]*/
  439. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2760);
  440. r23put((T23*)(oBC21memory),b1,b1);
  441. }/*]*/
  442. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730a);
  443. r23put((T23*)(oBC21memory),b1,b1);
  444. }/*]*/
  445. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22248);
  446. r23put((T23*)(oBC21memory),b1,b1);
  447. }/*]*/
  448. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22788);
  449. r23put((T23*)(oBC21memory),b1,b1);
  450. }/*]*/
  451. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_30660);
  452. r23put((T23*)(oBC21memory),b1,b1);
  453. }/*]*/
  454. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13995);
  455. r23put((T23*)(oBC21memory),b1,b1);
  456. }/*]*/
  457. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_432);
  458. r23put((T23*)(oBC21memory),b1,b1);
  459. }/*]*/
  460. r21add2(((T0*)ms15_22596));
  461. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60104);
  462. r23put((T23*)(oBC21memory),b1,b1);
  463. }/*]*/
  464. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_24960);
  465. r23put((T23*)(oBC21memory),b1,b1);
  466. }/*]*/
  467. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34432);
  468. r23put((T23*)(oBC21memory),b1,b1);
  469. }/*]*/
  470. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11144);
  471. r23put((T23*)(oBC21memory),b1,b1);
  472. }/*]*/
  473. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_18964);
  474. r23put((T23*)(oBC21memory),b1,b1);
  475. }/*]*/
  476. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1724);
  477. r23put((T23*)(oBC21memory),b1,b1);
  478. }/*]*/
  479. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1744);
  480. r23put((T23*)(oBC21memory),b1,b1);
  481. }/*]*/
  482. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765);
  483. r23put((T23*)(oBC21memory),b1,b1);
  484. }/*]*/
  485. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6762);
  486. r23put((T23*)(oBC21memory),b1,b1);
  487. }/*]*/
  488. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1656);
  489. r23put((T23*)(oBC21memory),b1,b1);
  490. }/*]*/
  491. r21add2(((T0*)ms15_60016));
  492. r21add2(((T0*)ms15_26880));
  493. r21add2(((T0*)ms15_33240));
  494. r21add2(((T0*)ms15_21624));
  495. r21add2(((T0*)ms15_60060));
  496. r21add2(((T0*)ms15_26908));
  497. r21add2(((T0*)ms15_33270));
  498. r21add2(((T0*)ms15_21648));
  499. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17886);
  500. r23put((T23*)(oBC21memory),b1,b1);
  501. }/*]*/
  502. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824);
  503. r23put((T23*)(oBC21memory),b1,b1);
  504. }/*]*/
  505. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21192);
  506. r23put((T23*)(oBC21memory),b1,b1);
  507. }/*]*/
  508. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2785);
  509. r23put((T23*)(oBC21memory),b1,b1);
  510. }/*]*/
  511. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11496);
  512. r23put((T23*)(oBC21memory),b1,b1);
  513. }/*]*/
  514. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_53940);
  515. r23put((T23*)(oBC21memory),b1,b1);
  516. }/*]*/
  517. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035);
  518. r23put((T23*)(oBC21memory),b1,b1);
  519. }/*]*/
  520. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2440);
  521. r23put((T23*)(oBC21memory),b1,b1);
  522. }/*]*/
  523. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2445);
  524. r23put((T23*)(oBC21memory),b1,b1);
  525. }/*]*/
  526. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_32730);
  527. r23put((T23*)(oBC21memory),b1,b1);
  528. }/*]*/
  529. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12744);
  530. r23put((T23*)(oBC21memory),b1,b1);
  531. }/*]*/
  532. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13662);
  533. r23put((T23*)(oBC21memory),b1,b1);
  534. }/*]*/
  535. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8547);
  536. r23put((T23*)(oBC21memory),b1,b1);
  537. }/*]*/
  538. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8505);
  539. r23put((T23*)(oBC21memory),b1,b1);
  540. }/*]*/
  541. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9436);
  542. r23put((T23*)(oBC21memory),b1,b1);
  543. }/*]*/
  544. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14193);
  545. r23put((T23*)(oBC21memory),b1,b1);
  546. }/*]*/
  547. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915a);
  548. r23put((T23*)(oBC21memory),b1,b1);
  549. }/*]*/
  550. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915);
  551. r23put((T23*)(oBC21memory),b1,b1);
  552. }/*]*/
  553. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34528);
  554. r23put((T23*)(oBC21memory),b1,b1);
  555. }/*]*/
  556. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13752);
  557. r23put((T23*)(oBC21memory),b1,b1);
  558. }/*]*/
  559. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11336);
  560. r23put((T23*)(oBC21memory),b1,b1);
  561. }/*]*/
  562. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_26156);
  563. r23put((T23*)(oBC21memory),b1,b1);
  564. }/*]*/
  565. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11376);
  566. r23put((T23*)(oBC21memory),b1,b1);
  567. }/*]*/
  568. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27580);
  569. r23put((T23*)(oBC21memory),b1,b1);
  570. }/*]*/
  571. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_33990);
  572. r23put((T23*)(oBC21memory),b1,b1);
  573. }/*]*/
  574. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27443);
  575. r23put((T23*)(oBC21memory),b1,b1);
  576. }/*]*/
  577. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_40358);
  578. r23put((T23*)(oBC21memory),b1,b1);
  579. }/*]*/
  580. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_25584);
  581. r23put((T23*)(oBC21memory),b1,b1);
  582. }/*]*/
  583. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7380);
  584. r23put((T23*)(oBC21memory),b1,b1);
  585. }/*]*/
  586. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730);
  587. r23put((T23*)(oBC21memory),b1,b1);
  588. }/*]*/
  589. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7530);
  590. r23put((T23*)(oBC21memory),b1,b1);
  591. }/*]*/
  592. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13977);
  593. r23put((T23*)(oBC21memory),b1,b1);
  594. }/*]*/
  595. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14175);
  596. r23put((T23*)(oBC21memory),b1,b1);
  597. }/*]*/
  598. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16970);
  599. r23put((T23*)(oBC21memory),b1,b1);
  600. }/*]*/
  601. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8820);
  602. r23put((T23*)(oBC21memory),b1,b1);
  603. }/*]*/
  604. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7326);
  605. r23put((T23*)(oBC21memory),b1,b1);
  606. }/*]*/
  607. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22716);
  608. r23put((T23*)(oBC21memory),b1,b1);
  609. }/*]*/
  610. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12978);
  611. r23put((T23*)(oBC21memory),b1,b1);
  612. }/*]*/
  613. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16770);
  614. r23put((T23*)(oBC21memory),b1,b1);
  615. }/*]*/
  616. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16850);
  617. r23put((T23*)(oBC21memory),b1,b1);
  618. }/*]*/
  619. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9051);
  620. r23put((T23*)(oBC21memory),b1,b1);
  621. }/*]*/
  622. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21300);
  623. r23put((T23*)(oBC21memory),b1,b1);
  624. }/*]*/
  625. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_56720);
  626. r23put((T23*)(oBC21memory),b1,b1);
  627. }/*]*/
  628. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1800);
  629. r23put((T23*)(oBC21memory),b1,b1);
  630. }/*]*/
  631. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2780);
  632. r23put((T23*)(oBC21memory),b1,b1);
  633. }/*]*/
  634. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27456);
  635. r23put((T23*)(oBC21memory),b1,b1);
  636. }/*]*/
  637. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15650);
  638. r23put((T23*)(oBC21memory),b1,b1);
  639. }/*]*/
  640. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9275);
  641. r23put((T23*)(oBC21memory),b1,b1);
  642. }/*]*/
  643. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_58075);
  644. r23put((T23*)(oBC21memory),b1,b1);
  645. }/*]*/
  646. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22140);
  647. r23put((T23*)(oBC21memory),b1,b1);
  648. }/*]*/
  649. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13833);
  650. r23put((T23*)(oBC21memory),b1,b1);
  651. }/*]*/
  652. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7314);
  653. r23put((T23*)(oBC21memory),b1,b1);
  654. }/*]*/
  655. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1608);
  656. r23put((T23*)(oBC21memory),b1,b1);
  657. }/*]*/
  658. /*]*/
  659. }
  660. }}
  661. return oBC13string_aliaser;
  662. }
  663.  
  664.  
  665. T0* r133origin_base_class(T133* C){
  666. T0* R=NULL;
  667. R=(/*RF2*/((/*RF2*/(C)->_start_position/*4*/))._base_class/*0*/);
  668. return R;
  669. }
  670.  
  671.  
  672. void r133error(T68 a1,T0* a2){
  673. r66add_position(a1);
  674. /*[IRF3.6append*/{T0* b1=a2;
  675. r7append((T7*)(oBC66explanation),b1);
  676. }/*]*/
  677. r66print_as_error((T66*)(oBC13eh));
  678. }
  679.  
  680.  
  681. void r272standard_c_object_model(T272* C){
  682. T0* _rc=NULL;
  683. T2 _mem_id=0;
  684. _rc=r272run_class(C);
  685. _mem_id=(/*RF2*/(((T50*)_rc))->_id/*4*/);
  686. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_783104)))))->_count)=(0);
  687. /*]*/
  688. r7extend((T7*)(((T0*)ms52_783104)),((T3)'T'));
  689. r2append_in(_mem_id,((T0*)ms52_783104));
  690. r7extend((T7*)(((T0*)ms52_783104)),((T3)'\40'));
  691. r7extend((T7*)(((T0*)ms52_783104)),((T3)'M'));
  692. r2append_in(_mem_id,((T0*)ms52_783104));
  693. r325put_extern7((T325*)(oBC13cpp),((T0*)ms52_783104));
  694. /*[IRF3.3swap_on_c*/((((T325*)((T325*)(oBC13cpp))))->_current_out)=(oBC325out_c);
  695. /*]*/
  696. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_783104)))))->_count)=(0);
  697. /*]*/
  698. r50c_object_model_in(((T50*)_rc),((T0*)ms52_783104));
  699. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_138));
  700. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms52_783104));
  701. /*]*/
  702. r325swap_on_h((T325*)(oBC13cpp));
  703. }
  704.  
  705.  
  706. void r272gc_free_in(T272* C,T0* a1){
  707. r7append(((T7*)a1),((T0*)ms52_8540));
  708. r2append_in(r272id(C),a1);
  709. }
  710.  
  711.  
  712. void r272standard_gc_info_in(T272* C,T0* a1){
  713. r7append(((T7*)a1),((T0*)ms52_22591a));
  714. r7append(((T7*)a1),/*(IRF4.6run_time_mark*/(/*RF2*/(((T61*)((/*RF2*/(C)->_base_class_name/*4*/))))->_to_string/*8*/)/*)*/);
  715. r7append(((T7*)a1),((T0*)ms14_5895));
  716. r272gc_info_nb_in(C,a1);
  717. r7append(((T7*)a1),((T0*)ms14_330));
  718. r7append(((T7*)a1),((T0*)ms52_22591));
  719. r272gc_store_left_in(C,a1);
  720. r7append(((T7*)a1),((T0*)ms14_5895));
  721. r272gc_store_left_in(C,a1);
  722. r7append(((T7*)a1),((T0*)ms14_330));
  723. }
  724.  
  725.  
  726. T0* r272generic_list(T272* C){
  727. T0* R=NULL;
  728. r272fatal_error_generic_list(C);
  729. return R;
  730. }
  731.  
  732.  
  733. T6 r272need_gc_mark_function(T272* C){
  734. T6 R=0;
  735. /*[IF*/
  736. if(r272is_reference(C)){
  737. R=1;
  738. }
  739. else{
  740. R=r50gc_mark_to_follow((T50*)(r272run_class(C)));
  741. }
  742. /*FI]*/
  743. return R;
  744. }
  745.  
  746.  
  747. void r272standard_c_print_function(T272* C){
  748. /*[IF*/
  749. if(r47no_check((T47*)(oBC13run_control))){
  750. r50c_print_function((T50*)(r272run_class(C)));
  751. }
  752. /*FI]*/
  753. }
  754.  
  755.  
  756. T2 r272id(T272* C){
  757. T2 R=0;
  758. R=(/*RF2*/((T51*)(r272base_class(C)))->_id/*0*/);
  759. return R;
  760. }
  761.  
  762.  
  763. void r272cast_to_ref(T272* C){
  764. X52cast_to_ref(/*(IRF4.4run_type*/((T0*)(C))/*)*/);
  765. }
  766.  
  767.  
  768. void r272just_before_gc_mark_in(T272* C,T0* a1){
  769. /*[IF*/
  770. if(r272is_reference(C)){
  771. r272standard_just_before_gc_mark_in(C,a1);
  772. }
  773. /*FI]*/
  774. }
  775.  
  776.  
  777. void r272c_header_pass3(T272* C){
  778. /*[IF*/
  779. if(r272is_expanded(C)){
  780. /*[IF*/
  781. if(r272need_c_struct(C)){
  782. r272standard_c_struct(C);
  783. }
  784. /*FI]*/
  785. }
  786. /*FI]*/
  787. }
  788.  
  789.  
  790. void r272gc_call_new_in(T272* C,T0* a1){
  791. r7append(((T7*)a1),((T0*)ms14_990));
  792. r2append_in(r272id(C),a1);
  793. r7extend(((T7*)a1),((T3)'\50'));
  794. r7extend(((T7*)a1),((T3)'\51'));
  795. }
  796.  
  797.  
  798. void r272standard_c_struct(T272* C){
  799. T0* _t=NULL;
  800. T0* _a=NULL;
  801. T2 _mem_id=0;
  802. T2 _i=0;
  803. T0* _wa=NULL;
  804. _mem_id=r272id(C);
  805. _wa=r50writable_attributes((T50*)(r272run_class(C)));
  806. r7copy((T7*)(((T0*)ms52_783104)),((T0*)ms14_5495));
  807. r7extend((T7*)(((T0*)ms52_783104)),((T3)'S'));
  808. r2append_in(_mem_id,((T0*)ms52_783104));
  809. r7extend((T7*)(((T0*)ms52_783104)),((T3)'\173'));
  810. /*[IF*/
  811. if(r272is_reference(C)){
  812. /*[IF*/
  813. if(r50is_tagged((T50*)(r272run_class(C)))){
  814. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms52_5873));
  815. }
  816. /*FI]*/
  817. }
  818. /*FI]*/
  819. /*[IF*/
  820. if((_wa)!=((void*)(NULL))){
  821. _i=(/*RF2*/(((T346*)_wa))->_upper/*12*/);
  822. while (!((_i)==(0)))
  823. {
  824. _a=r346item(((T346*)_wa),_i);
  825. _t=X52run_type((/*RF2*/(((T345*)_a))->_result_type/*28*/));
  826. X52c_type_for_result_in(_t,((T0*)ms52_783104));
  827. r7extend((T7*)(((T0*)ms52_783104)),((T3)'\40'));
  828. r7extend((T7*)(((T0*)ms52_783104)),((T3)'\137'));
  829. r7append((T7*)(((T0*)ms52_783104)),X82to_string((/*RF2*/(((T345*)_a))->_name/*12*/)));
  830. r7extend((T7*)(((T0*)ms52_783104)),((T3)'\73'));
  831. _i=(_i)-(1);
  832. }
  833. }
  834. /*FI]*/
  835. r7extend((T7*)(((T0*)ms52_783104)),((T3)'\175'));
  836. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_138));
  837. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms52_783104));
  838. /*]*/
  839. /*[IF*/
  840. if(r272is_expanded(C)){
  841. r7copy((T7*)(((T0*)ms52_783104)),((T0*)ms14_993));
  842. r7extend((T7*)(((T0*)ms52_783104)),((T3)'\40'));
  843. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_7749));
  844. r2append_in(_mem_id,((T0*)ms52_783104));
  845. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms52_248));
  846. r2append_in(_mem_id,((T0*)ms52_783104));
  847. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms52_1600));
  848. r2append_in(_mem_id,((T0*)ms52_783104));
  849. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms52_936));
  850. r325put_c_function((T325*)(oBC13cpp),((T0*)ms52_783104),((T0*)ms52_87312));
  851. }
  852. /*FI]*/
  853. }
  854.  
  855.  
  856. T0* r272base_class(T272* C){
  857. T0* R=NULL;
  858. T0* _bcn=NULL;
  859. _bcn=(/*RF2*/(C)->_base_class_name/*4*/);
  860. /*[IF*/
  861. if((_bcn)!=((void*)(NULL))){
  862. R=r61base_class(((T61*)_bcn));
  863. }
  864. else{
  865. /*[IRF3.6append*/{T0* b1=((T0*)ms52_36693);
  866. r7append((T7*)(oBC66explanation),b1);
  867. }/*]*/
  868. r66add_type((T0*)C,((T0*)ms14_46));
  869. r66print_as_fatal_error((T66*)(oBC13eh));
  870. }
  871. /*FI]*/
  872. return R;
  873. }
  874.  
  875.  
  876. void r272gc_store_chunk_in(T272* C,T0* a1){
  877. r7append(((T7*)a1),((T0*)ms52_19074));
  878. r2append_in(r272id(C),a1);
  879. }
  880.  
  881.  
  882. T0* r272look_up_for(T272* C,T0* a1,T0* a2){
  883. T0* R=NULL;
  884. R=r51look_up_for((T51*)(r272base_class(C)),a1,a2);
  885. return R;
  886. }
  887.  
  888.  
  889. T2 r272c_sizeof(T272* C){
  890. T2 R=0;
  891. /*[IF*/
  892. if(r272is_reference(C)){
  893. R=r272c_sizeof_pointer();
  894. }
  895. else{
  896. R=r50c_sizeof((T50*)(r272run_class(C)));
  897. }
  898. /*FI]*/
  899. return R;
  900. }
  901.  
  902.  
  903. T6 r272has_creation(T272* C,T0* a1){
  904. T6 R=0;
  905. R=r51has_creation((T51*)(r272base_class(C)),a1);
  906. return R;
  907. }
  908.  
  909.  
  910. T6 r272need_c_struct(T272* C){
  911. T6 R=0;
  912. /*[IF*/
  913. if(r272is_dummy_expanded(C)){
  914. }
  915.  else if(r272is_expanded(C)){
  916. R=1;
  917. }
  918.  else if(r50is_tagged((T50*)(r272run_class(C)))){
  919. R=1;
  920. }
  921. else{
  922. R=(r50writable_attributes((T50*)(r272run_class(C))))!=((void*)(NULL));
  923. }
  924. /*FI]*/
  925. return R;
  926. }
  927.  
  928.  
  929. void r272mapping_cast(T272* C){
  930. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_15456)))))->_count)=(0);
  931. /*]*/
  932. r7extend((T7*)(((T0*)ms52_15456)),((T3)'\50'));
  933. r272c_type_for_target_in(C,((T0*)ms52_15456));
  934. r7extend((T7*)(((T0*)ms52_15456)),((T3)'\51'));
  935. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms52_15456));
  936. /*]*/
  937. }
  938.  
  939.  
  940. void r272gc_align_mark_in(T272* C,T0* a1){
  941. r7append(((T7*)a1),((T0*)ms52_24609));
  942. r2append_in(r272id(C),a1);
  943. }
  944.  
  945.  
  946. T0* r272actual_reference(T272* C,T0* a1){
  947. T0* R=NULL;
  948. T68 _sp={NULL,0};
  949. {T68 se_tmp0;
  950. _sp=(*(se_tmp0=X52start_position(a1),&se_tmp0));
  951. }
  952. {T389*n=((T389*)malloc(sizeof(*n))/*24*/);
  953. *n=M389;
  954. r389from_expanded(n,_sp,(T0*)C);
  955. R=((T0*)n);
  956. }
  957. return R;
  958. }
  959.  
  960.  
  961. T6 r272is_a_in(T272* C,T0* a1,T0* a2){
  962. T6 R=0;
  963. T0* _ct=NULL;
  964. T0* _t2=NULL;
  965. T0* _t1=NULL;
  966. /*[IF*/
  967. if((/*(IRF4.6written_mark*/(/*RF2*/(((T61*)((/*RF2*/(C)->_base_class_name/*4*/))))->_to_string/*8*/)/*)*/)==((void*)(X52written_mark(a1)))){
  968. R=1;
  969. }
  970. else{
  971. _ct=(/*RF2*/(((T50*)a2))->_current_type/*0*/);
  972. _t1=r272to_runnable(C,_ct);
  973. _t2=X52to_runnable(a1,_ct);
  974. /*[IF*/
  975. if((X52run_time_mark(_t1))==((void*)(X52run_time_mark(_t2)))){
  976. R=1;
  977. }
  978. else{
  979. R=X52is_a(_t1,_t2);
  980. }
  981. /*FI]*/
  982. }
  983. /*FI]*/
  984. return R;
  985. }
  986.  
  987.  
  988. void r272standard_c_typedef(T272* C){
  989. T2 _mem_id=0;
  990. _mem_id=r272id(C);
  991. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_783104)))))->_count)=(0);
  992. /*]*/
  993. /*[IF*/
  994. if(r272need_c_struct(C)){
  995. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_6448));
  996. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_5495));
  997. r7extend((T7*)(((T0*)ms52_783104)),((T3)'S'));
  998. r2append_in(_mem_id,((T0*)ms52_783104));
  999. r7extend((T7*)(((T0*)ms52_783104)),((T3)'\40'));
  1000. r7extend((T7*)(((T0*)ms52_783104)),((T3)'T'));
  1001. r2append_in(_mem_id,((T0*)ms52_783104));
  1002. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_138));
  1003. }
  1004.  else if(r272is_dummy_expanded(C)){
  1005. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_6448));
  1006. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_993));
  1007. r7extend((T7*)(((T0*)ms52_783104)),((T3)'\40'));
  1008. r7extend((T7*)(((T0*)ms52_783104)),((T3)'T'));
  1009. r2append_in(_mem_id,((T0*)ms52_783104));
  1010. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_138));
  1011. }
  1012.  else if(r272is_reference(C)){
  1013. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_6448));
  1014. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_1736a));
  1015. r7extend((T7*)(((T0*)ms52_783104)),((T3)'\52'));
  1016. r7extend((T7*)(((T0*)ms52_783104)),((T3)'T'));
  1017. r2append_in(_mem_id,((T0*)ms52_783104));
  1018. r7append((T7*)(((T0*)ms52_783104)),((T0*)ms14_138));
  1019. }
  1020. /*FI]*/
  1021. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms52_783104));
  1022. /*]*/
  1023. }
  1024.  
  1025.  
  1026. T6 r272is_native_array(T272* C){
  1027. T6 R=0;
  1028. T0* _tna=NULL;
  1029. _tna=NULL;
  1030. R=(_tna)!=((void*)(NULL));
  1031. return R;
  1032. }
  1033.  
  1034.  
  1035. T6 r272is_a(T272* C,T0* a1){
  1036. T6 R=0;
  1037. T0* _obcn=NULL;
  1038. T0* _bcn=NULL;
  1039. _bcn=(/*RF2*/(C)->_base_class_name/*4*/);
  1040. _obcn=X52base_class_name(a1);
  1041. /*[IF*/
  1042. if(((/*RF2*/(((T61*)_bcn))->_to_string/*8*/))==((void*)((/*RF2*/(((T61*)_obcn))->_to_string/*8*/)))){
  1043. R=1;
  1044. }
  1045.  else if((r272is_reference(C))&&(X52is_expanded(a1))){
  1046. }
  1047.  else if(r61is_subclass_of(((T61*)_bcn),_obcn)){
  1048. /*[IF*/
  1049. if(X52is_generic(a1)){
  1050. R=r51is_a_vncg((T51*)(r61base_class(((T61*)_bcn))),(T0*)C,a1);
  1051. }
  1052. else{
  1053. R=1;
  1054. }
  1055. /*FI]*/
  1056. }
  1057. /*FI]*/
  1058. /*[IF*/
  1059. if(!(R)){
  1060. r66add_type((T0*)C,((T0*)ms14_17460));
  1061. r66add_type(a1,((T0*)ms14_46));
  1062. }
  1063. /*FI]*/
  1064. return R;
  1065. }
  1066. T0*oBC272check_memory=NULL;
  1067.  
  1068.  
  1069. void r272gc_store_left_in(T272* C,T0* a1){
  1070. r7append(((T7*)a1),((T0*)ms52_17170));
  1071. r2append_in(r272id(C),a1);
  1072. }
  1073.  
  1074.  
  1075. T2 r272c_sizeof_pointer(void){
  1076. T2 R=0;
  1077. T8 _p=NULL;
  1078. R=sizeof(T8);
  1079. return R;
  1080. }
  1081.  
  1082.  
  1083. T6 r272is_reference(T272* C){
  1084. T6 R=0;
  1085. R=!((/*RF2*/((T51*)(r272base_class(C)))->_is_expanded/*17*/));
  1086. return R;
  1087. }
  1088.  
  1089.  
  1090. void r272standard_gc_define2_for_expanded(T272* C){
  1091. T2 _rcid=0;
  1092. T0* _rc=NULL;
  1093. _rc=r272run_class(C);
  1094. /*[IF*/
  1095. if(r50gc_mark_to_follow(((T50*)_rc))){
  1096. _rcid=(/*RF2*/(((T50*)_rc))->_id/*4*/);
  1097. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_1736a));
  1098. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  1099. r272gc_mark_in(C,((T0*)ms52_783104a));
  1100. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_248aa));
  1101. r2append_in(_rcid,((T0*)ms52_783104a));
  1102. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_582a));
  1103. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_3073536)))))->_count)=(0);
  1104. /*]*/
  1105. r50gc_mark_fixed_size(((T50*)_rc),1,((T0*)ms52_3073536));
  1106. r325put_c_function((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  1107. }
  1108. /*FI]*/
  1109. }
  1110.  
  1111.  
  1112. void r272fatal_error_generic_list(T272* C){
  1113. r66add_type((T0*)C,((T0*)ms52_28899));
  1114. r66print_as_fatal_error((T66*)(oBC13eh));
  1115. }
  1116.  
  1117.  
  1118. void r272c_initialize_in(T272* C,T0* a1){
  1119. /*[IF*/
  1120. if(r272is_expanded(C)){
  1121. /*[IF*/
  1122. if(r272need_c_struct(C)){
  1123. r50c_object_model_in((T50*)(r272run_class(C)),a1);
  1124. }
  1125. else{
  1126. r7extend(((T7*)a1),((T3)'0'));
  1127. }
  1128. /*FI]*/
  1129. }
  1130. else{
  1131. r7append(((T7*)a1),((T0*)ms14_1260));
  1132. }
  1133. /*FI]*/
  1134. }
  1135.  
  1136.  
  1137. T0* r272smallest_ancestor(T272* C,T0* a1){
  1138. T0* R=NULL;
  1139. T0* _bc2=NULL;
  1140. T0* _bc=NULL;
  1141. T0* _rto=NULL;
  1142. _rto=X52run_type(a1);
  1143. /*[IF*/
  1144. if(X52is_none(a1)){
  1145. R=((T0*)(C));
  1146. }
  1147.  else if(X52is_any(_rto)){
  1148. R=_rto;
  1149. }
  1150. else{
  1151. _bc=r272base_class(C);
  1152. _bc2=X52base_class(_rto);
  1153. /*[IF*/
  1154. if((_bc2)==((void*)(_bc))){
  1155. R=((T0*)(C));
  1156. }
  1157.  else if(r51is_subclass_of(((T51*)_bc2),_bc)){
  1158. R=((T0*)(C));
  1159. }
  1160.  else if(r51is_subclass_of(((T51*)_bc),_bc2)){
  1161. R=_rto;
  1162. }
  1163.  else if((X52is_expanded(_rto))&&(!(r272is_expanded(C)))){
  1164. R=X52smallest_ancestor(_rto,(T0*)C);
  1165. }
  1166. else{
  1167. R=r51smallest_ancestor(((T51*)_bc2),_rto,(T0*)C);
  1168. }
  1169. /*FI]*/
  1170. }
  1171. /*FI]*/
  1172. return R;
  1173. }
  1174.  
  1175.  
  1176. void r272standard_gc_define2(T272* C){
  1177. T6 _gc_check_id=0;
  1178. T2 _rcid=0;
  1179. T0* _rc=NULL;
  1180. _rc=r272run_class(C);
  1181. _rcid=(/*RF2*/(((T50*)_rc))->_id/*4*/);
  1182. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_1736a));
  1183. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  1184. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_11416));
  1185. r2append_in(_rcid,((T0*)ms52_783104a));
  1186. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_6360));
  1187. r7copy((T7*)(((T0*)ms52_3073536)),((T0*)ms52_404));
  1188. r2append_in(_rcid,((T0*)ms52_3073536));
  1189. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_69075));
  1190. r2append_in(_rcid,((T0*)ms52_3073536));
  1191. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_361836));
  1192. r272gc_store_in(C,((T0*)ms52_3073536));
  1193. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_94205));
  1194. r344memory_dispose(((T0*)ms52_3073536),((T0*)ms52_320),r272run_class(C));
  1195. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_21552));
  1196. r272gc_free_in(C,((T0*)ms52_3073536));
  1197. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms14_138));
  1198. r272gc_free_in(C,((T0*)ms52_3073536));
  1199. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_407960));
  1200. r344memory_dispose(((T0*)ms52_3073536),((T0*)ms52_322),r272run_class(C));
  1201. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_1591218));
  1202. r272gc_free_in(C,((T0*)ms52_3073536));
  1203. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms14_138));
  1204. r272gc_free_in(C,((T0*)ms52_3073536));
  1205. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_14102));
  1206. r325put_c_function((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  1207. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_1736a));
  1208. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  1209. r272gc_mark_in(C,((T0*)ms52_783104a));
  1210. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_248a));
  1211. r2append_in(_rcid,((T0*)ms52_783104a));
  1212. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_582));
  1213. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_3073536)))))->_count)=(0);
  1214. /*]*/
  1215. _gc_check_id=(r50is_tagged(((T50*)_rc)))&&(r47no_check((T47*)(oBC13run_control)));
  1216. /*[IF*/
  1217. if(_gc_check_id){
  1218. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_21437));
  1219. r2append_in(_rcid,((T0*)ms52_3073536));
  1220. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_932));
  1221. }
  1222. /*FI]*/
  1223. r50gc_mark_fixed_size(((T50*)_rc),0,((T0*)ms52_3073536));
  1224. /*[IF*/
  1225. if(_gc_check_id){
  1226. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_270));
  1227. }
  1228. /*FI]*/
  1229. r325put_c_function((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  1230. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_1736a));
  1231. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  1232. r272gc_align_mark_in(C,((T0*)ms52_783104a));
  1233. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_14570));
  1234. r2append_in(_rcid,((T0*)ms52_783104a));
  1235. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_585));
  1236. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_3073536)))))->_count)=(0);
  1237. /*]*/
  1238. r50gc_align_mark_fixed_size(((T50*)_rc),((T0*)ms52_3073536));
  1239. r325put_c_function((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  1240. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms52_5346));
  1241. r2append_in(_rcid,((T0*)ms52_783104a));
  1242. r7copy((T7*)(((T0*)ms52_3073536)),((T0*)ms52_454797));
  1243. r2append_in(_rcid,((T0*)ms52_3073536));
  1244. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_78075));
  1245. r2append_in(_rcid,((T0*)ms52_3073536));
  1246. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_356700));
  1247. r2append_in(_rcid,((T0*)ms52_3073536));
  1248. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_5802));
  1249. r325put_extern5((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  1250. /*[IRF3.3clear*/((((T7*)((T7*)(((T0*)ms52_783104a)))))->_count)=(0);
  1251. /*]*/
  1252. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'T'));
  1253. r2append_in(_rcid,((T0*)ms52_783104a));
  1254. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\52'));
  1255. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_990));
  1256. r2append_in(_rcid,((T0*)ms52_783104a));
  1257. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_4320));
  1258. r7copy((T7*)(((T0*)ms52_3073536)),((T0*)ms14_404));
  1259. r2append_in(_rcid,((T0*)ms52_3073536));
  1260. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_884));
  1261. /*[IF*/
  1262. if((/*RF2*/((T344*)(oBC13gc_handler))->_info_flag/*1*/)){
  1263. r272gc_info_nb_in(C,((T0*)ms52_3073536));
  1264. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_620));
  1265. }
  1266. /*FI]*/
  1267. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_741));
  1268. r272gc_store_left_in(C,((T0*)ms52_3073536));
  1269. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_1425));
  1270. r272gc_store_left_in(C,((T0*)ms52_3073536));
  1271. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_3810));
  1272. r272gc_store_in(C,((T0*)ms52_3073536));
  1273. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_13200));
  1274. r272gc_free_in(C,((T0*)ms52_3073536));
  1275. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_11044));
  1276. r272gc_free_in(C,((T0*)ms52_3073536));
  1277. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms14_138));
  1278. r272gc_free_in(C,((T0*)ms52_3073536));
  1279. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_39474));
  1280. r272gc_store_left_in(C,((T0*)ms52_3073536));
  1281. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_2370));
  1282. r272gc_store_left_in(C,((T0*)ms52_3073536));
  1283. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_712));
  1284. r272gc_store_chunk_in(C,((T0*)ms52_3073536));
  1285. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_103626));
  1286. r272gc_store_in(C,((T0*)ms52_3073536));
  1287. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_11760));
  1288. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_11024));
  1289. r272gc_store_chunk_in(C,((T0*)ms52_3073536));
  1290. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_23640));
  1291. r272gc_initialize_chunk(C,_rcid,((T0*)ms52_3073536));
  1292. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_31806));
  1293. r272gc_store_chunk_in(C,((T0*)ms52_3073536));
  1294. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_1694883));
  1295. r272gc_store_chunk_in(C,((T0*)ms52_3073536));
  1296. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_51520));
  1297. r272gc_store_chunk_in(C,((T0*)ms52_3073536));
  1298. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_816));
  1299. r272gc_initialize_chunk(C,_rcid,((T0*)ms52_3073536));
  1300. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_59265));
  1301. r272gc_free_in(C,((T0*)ms52_3073536));
  1302. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_1725));
  1303. r272gc_free_in(C,((T0*)ms52_3073536));
  1304. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms14_138));
  1305. r272gc_free_in(C,((T0*)ms52_3073536));
  1306. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_15800));
  1307. r272gc_store_chunk_in(C,((T0*)ms52_3073536));
  1308. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_8008));
  1309. r272gc_initialize_chunk(C,_rcid,((T0*)ms52_3073536));
  1310. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_21504));
  1311. /*[IF*/
  1312. if(r272need_c_struct(C)){
  1313. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_14003));
  1314. r2append_in(_rcid,((T0*)ms52_3073536));
  1315. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms14_138));
  1316. }
  1317. /*FI]*/
  1318. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_11862));
  1319. r2append_in(_rcid,((T0*)ms52_3073536));
  1320. r7append((T7*)(((T0*)ms52_3073536)),((T0*)ms52_2118));
  1321. r325put_c_function((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms52_3073536));
  1322. }
  1323.  
  1324.  
  1325. void r272c_header_pass4(T272* C){
  1326. /*[IF*/
  1327. if(r272is_reference(C)){
  1328. /*[IF*/
  1329. if(r272need_c_struct(C)){
  1330. r272standard_c_struct(C);
  1331. }
  1332. /*FI]*/
  1333. }
  1334. /*FI]*/
  1335. r272standard_c_object_model(C);
  1336. r272standard_c_print_function(C);
  1337. }
  1338. T0*oBC13gc_handler=NULL;
  1339.  
  1340.  
  1341. T0* r272to_runnable(T272* C,T0* a1){
  1342. T0* R=NULL;
  1343. T0* _bc=NULL;
  1344. _bc=r61base_class((T61*)((/*RF2*/(C)->_base_class_name/*4*/)));
  1345. /*[IF*/
  1346. if(((/*RF2*/(((T51*)_bc))->_is_expanded/*17*/))&&(!(r64fast_has((T64*)(oBC272check_memory),_bc)))){
  1347. r64add_last((T64*)(oBC272check_memory),_bc);
  1348. r50set_at_run_time((T50*)(r272run_class(C)));
  1349. }
  1350. /*FI]*/
  1351. /*[IF*/
  1352. if(((/*RF2*/(((T51*)_bc))->_formal_generic_list/*22*/))!=((void*)(NULL))){
  1353. r66add_position((/*RF2*/((T94*)((/*RF2*/(((T51*)_bc))->_formal_generic_list/*22*/)))->_start_position/*0*/));
  1354. r66add_type((T0*)C,((T0*)ms272_49909));
  1355. r66print_as_fatal_error((T66*)(oBC13eh));
  1356. }
  1357. /*FI]*/
  1358. R=((T0*)(C));
  1359. return R;
  1360. }
  1361.  
  1362.  
  1363. void r272standard_gc_define1(T272* C){
  1364. T2 _rcid=0;
  1365. T0* _rc=NULL;
  1366. _rc=r272run_class(C);
  1367. _rcid=(/*RF2*/(((T50*)_rc))->_id/*4*/);
  1368. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_6448));
  1369. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_5495));
  1370. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'B'));
  1371. r2append_in(_rcid,((T0*)ms52_783104a));
  1372. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  1373. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_404));
  1374. r2append_in(_rcid,((T0*)ms52_783104a));
  1375. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_138));
  1376. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms14_5495));
  1377. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'B'));
  1378. r2append_in(_rcid,((T0*)ms52_783104a));
  1379. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_414));
  1380. r2append_in(_rcid,((T0*)ms52_783104a));
  1381. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_78572));
  1382. r2append_in(_rcid,((T0*)ms52_783104a));
  1383. r7append((T7*)(((T0*)ms52_783104a)),((T0*)ms52_12042));
  1384. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms52_783104a));
  1385. /*]*/
  1386. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_404));
  1387. r2append_in(_rcid,((T0*)ms52_783104a));
  1388. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\52'));
  1389. r272gc_store_in(C,((T0*)ms52_783104a));
  1390. r325put_extern5((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms14_1260));
  1391. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_993));
  1392. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  1393. r272gc_store_left_in(C,((T0*)ms52_783104a));
  1394. r325put_extern2((T325*)(oBC13cpp),((T0*)ms52_783104a),((T3)'0'));
  1395. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms52_2345));
  1396. r272gc_store_chunk_in(C,((T0*)ms52_783104a));
  1397. r325put_extern5((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms14_1260));
  1398. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_404));
  1399. r2append_in(_rcid,((T0*)ms52_783104a));
  1400. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\52'));
  1401. r272gc_free_in(C,((T0*)ms52_783104a));
  1402. r325put_extern5((T325*)(oBC13cpp),((T0*)ms52_783104a),((T0*)ms14_1260));
  1403. /*[IF*/
  1404. if((/*RF2*/((T344*)(oBC13gc_handler))->_info_flag/*1*/)){
  1405. r7copy((T7*)(((T0*)ms52_783104a)),((T0*)ms14_993));
  1406. r7extend((T7*)(((T0*)ms52_783104a)),((T3)'\40'));
  1407. r272gc_info_nb_in(C,((T0*)ms52_783104a));
  1408. r325put_extern2((T325*)(oBC13cpp),((T0*)ms52_783104a),((T3)'0'));
  1409. }
  1410. /*FI]*/
  1411. }
  1412.  
  1413.  
  1414. void r272id_extra_information(T272* C,T0* a1){
  1415. r48put_string(((T48*)a1),((T0*)ms52_9724));
  1416. /*[IF*/
  1417. if(r272is_reference(C)){
  1418. r48put_string(((T48*)a1),((T0*)ms52_1476));
  1419. }
  1420. else{
  1421. r48put_string(((T48*)a1),((T0*)ms52_759));
  1422. }
  1423. /*FI]*/
  1424. }
  1425.  
  1426.  
  1427. void r272standard_just_before_gc_mark_in(T272* C,T0* a1){
  1428. r272gc_free_in(C,a1);
  1429. r7extend(((T7*)a1),((T3)'\75'));
  1430. r7append(((T7*)a1),((T0*)ms14_1260));
  1431. r7append(((T7*)a1),((T0*)ms14_138));
  1432. }
  1433.  
  1434.  
  1435. void r272gc_define1(T272* C){
  1436. /*[IF*/
  1437. if(r272is_reference(C)){
  1438. r272standard_gc_define1(C);
  1439. }
  1440. /*FI]*/
  1441. }
  1442.  
  1443.  
  1444. void r272gc_mark_in(T272* C,T0* a1){
  1445. r7append(((T7*)a1),((T0*)ms14_8764));
  1446. r2append_in(r272id(C),a1);
  1447. }
  1448.  
  1449.  
  1450. void r272gc_info_nb_in(T272* C,T0* a1){
  1451. r7append(((T7*)a1),((T0*)ms52_14920));
  1452. r2append_in(r272id(C),a1);
  1453. }
  1454.  
  1455.  
  1456. void r272c_type_for_external_in(T272* C,T0* a1){
  1457. /*[IF*/
  1458. if(r272is_reference(C)){
  1459. r7append(((T7*)a1),((T0*)ms14_1736a));
  1460. r7extend(((T7*)a1),((T3)'\52'));
  1461. }
  1462. else{
  1463. r272c_type_for_result_in(C,a1);
  1464. }
  1465. /*FI]*/
  1466. }
  1467.  
  1468.  
  1469. void r272c_type_for_argument_in(T272* C,T0* a1){
  1470. /*[IF*/
  1471. if(r272is_reference(C)){
  1472. r7append(((T7*)a1),((T0*)ms14_522));
  1473. }
  1474.  else if(r272is_dummy_expanded(C)){
  1475. r7append(((T7*)a1),((T0*)ms14_993));
  1476. }
  1477. else{
  1478. r7extend(((T7*)a1),((T3)'T'));
  1479. r2append_in(r272id(C),a1);
  1480. }
  1481. /*FI]*/
  1482. }
  1483.  
  1484.  
  1485. void r272gc_store_in(T272* C,T0* a1){
  1486. r7append(((T7*)a1),((T0*)ms52_2785));
  1487. r2append_in(r272id(C),a1);
  1488. }
  1489.  
  1490.  
  1491. T0* r272run_class(T272* C){
  1492. T0* R=NULL;
  1493. R=r49run_class((T0*)C);
  1494. return R;
  1495. }
  1496. T0*oBC13c_frame_descriptor_format=NULL;
  1497.  
  1498.  
  1499. T6 r272is_dummy_expanded(T272* C){
  1500. T6 R=0;
  1501. /*[IF*/
  1502. if(r272is_expanded(C)){
  1503. R=(r50writable_attributes((T50*)(r272run_class(C))))==((void*)(NULL));
  1504. }
  1505. /*FI]*/
  1506. return R;
  1507. }
  1508.  
  1509.  
  1510. void r272c_type_for_result_in(T272* C,T0* a1){
  1511. /*[IF*/
  1512. if(r272is_reference(C)){
  1513. r7append(((T7*)a1),((T0*)ms14_522));
  1514. }
  1515.  else if(r272is_dummy_expanded(C)){
  1516. r7append(((T7*)a1),((T0*)ms14_993));
  1517. }
  1518. else{
  1519. r7extend(((T7*)a1),((T3)'T'));
  1520. r2append_in(r272id(C),a1);
  1521. }
  1522. /*FI]*/
  1523. }
  1524.  
  1525.  
  1526. void r272c_type_for_target_in(T272* C,T0* a1){
  1527. /*[IF*/
  1528. if(r272is_dummy_expanded(C)){
  1529. r7append(((T7*)a1),((T0*)ms14_993));
  1530. }
  1531. else{
  1532. r7extend(((T7*)a1),((T3)'T'));
  1533. r2append_in(r272id(C),a1);
  1534. r7extend(((T7*)a1),((T3)'\52'));
  1535. }
  1536. /*FI]*/
  1537. }
  1538.  
  1539.  
  1540. T6 r272is_expanded(T272* C){
  1541. T6 R=0;
  1542. R=(/*RF2*/((T51*)(r272base_class(C)))->_is_expanded/*17*/);
  1543. return R;
  1544. }
  1545.  
  1546.  
  1547. T0* r272expanded_initializer(T272* C){
  1548. T0* R=NULL;
  1549. /*[IF*/
  1550. if(r272is_expanded(C)){
  1551. R=r51expanded_initializer((T51*)(r272base_class(C)),(T0*)C);
  1552. }
  1553. /*FI]*/
  1554. return R;
  1555. }
  1556.  
  1557.  
  1558. void r272demangling_in(T272* C,T0* a1){
  1559. /*[IF*/
  1560. if(r272is_reference(C)){
  1561. r7extend(((T7*)a1),((T3)'R'));
  1562. }
  1563. else{
  1564. r7extend(((T7*)a1),((T3)'E'));
  1565. }
  1566. /*FI]*/
  1567. r7extend(((T7*)a1),((T3)'\40'));
  1568. r7append(((T7*)a1),/*(IRF4.6run_time_mark*/(/*RF2*/(((T61*)((/*RF2*/(C)->_base_class_name/*4*/))))->_to_string/*8*/)/*)*/);
  1569. }
  1570.  
  1571.  
  1572. void r272gc_initialize_chunk(T272* C,T2 a1,T0* a2){
  1573. r7extend(((T7*)a2),((T3)'\52'));
  1574. r272gc_store_chunk_in(C,a2);
  1575. r7append(((T7*)a2),((T0*)ms14_266a));
  1576. r2append_in(a1,a2);
  1577. r7append(((T7*)a2),((T0*)ms14_138));
  1578. r272gc_store_in(C,a2);
  1579. r7append(((T7*)a2),((T0*)ms52_1715));
  1580. r2append_in(a1,a2);
  1581. r7append(((T7*)a2),((T0*)ms52_1005));
  1582. r272gc_store_chunk_in(C,a2);
  1583. r7append(((T7*)a2),((T0*)ms52_11742));
  1584. r272gc_store_left_in(C,a2);
  1585. r7append(((T7*)a2),((T0*)ms14_266a));
  1586. r2append_in(a1,a2);
  1587. r7append(((T7*)a2),((T0*)ms52_34060));
  1588. r272gc_store_in(C,a2);
  1589. r7append(((T7*)a2),((T0*)ms52_2040));
  1590. }
  1591.  
  1592.  
  1593. void r272c_initialize(T272* C){
  1594. /*[IF*/
  1595. if(r272is_expanded(C)){
  1596. r272c_initialize_expanded(C);
  1597. }
  1598. else{
  1599. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_1260));
  1600. /*]*/
  1601. }
  1602. /*FI]*/
  1603. }
  1604.  
  1605.  
  1606. void r272c_frame_descriptor(T272* C){
  1607. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'\45'));
  1608. /*[IF*/
  1609. if(r272is_reference(C)){
  1610. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'R'));
  1611. }
  1612. else{
  1613. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'E'));
  1614. }
  1615. /*FI]*/
  1616. r2append_in(r272id(C),oBC13c_frame_descriptor_format);
  1617. r7extend((T7*)(oBC13c_frame_descriptor_format),((T3)'\45'));
  1618. }
  1619.  
  1620.  
  1621. void r272c_initialize_expanded(T272* C){
  1622. T0* _rf=NULL;
  1623. T2 _i=0;
  1624. T0* _wa=NULL;
  1625. /*[IF*/
  1626. if(r272is_dummy_expanded(C)){
  1627. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1628. T3 b1=((T3)'0');
  1629. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1630. }/*]*/
  1631. /*]*/
  1632. }
  1633. else{
  1634. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1635. T3 b1=((T3)'\173');
  1636. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1637. }/*]*/
  1638. /*]*/
  1639. _wa=r50writable_attributes((T50*)(r272run_class(C)));
  1640. _i=(/*RF2*/(((T346*)_wa))->_upper/*12*/);
  1641. while (!((_i)==(0)))
  1642. {
  1643. _rf=r346item(((T346*)_wa),_i);
  1644. X52c_initialize((/*RF2*/(((T345*)_rf))->_result_type/*28*/));
  1645. _i=(_i)-(1);
  1646. /*[IF*/
  1647. if((_i)>(0)){
  1648. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1649. T3 b1=((T3)'\54');
  1650. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1651. }/*]*/
  1652. /*]*/
  1653. }
  1654. /*FI]*/
  1655. }
  1656. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1657. T3 b1=((T3)'\175');
  1658. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1659. }/*]*/
  1660. /*]*/
  1661. }
  1662. /*FI]*/
  1663. }
  1664.  
  1665.  
  1666. void r272gc_info_in(T272* C,T0* a1){
  1667. /*[IF*/
  1668. if(r272is_reference(C)){
  1669. r272standard_gc_info_in(C,a1);
  1670. }
  1671. /*FI]*/
  1672. }
  1673.  
  1674.  
  1675. void r272gc_define2(T272* C){
  1676. /*[IF*/
  1677. if(r272is_reference(C)){
  1678. r272standard_gc_define2(C);
  1679. }
  1680. else{
  1681. r272standard_gc_define2_for_expanded(C);
  1682. }
  1683. /*FI]*/
  1684. }
  1685.  
  1686.  
  1687. void r187compile_to_c_old(T187* C){
  1688. X104compile_to_c_old((/*RF2*/(C)->_target/*4*/));
  1689. /*[IF*/
  1690. {/*AT*//*SSPRF3*//*X139compile_to_c_old*/r139compile_to_c_old((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  1691. }
  1692. /*FI]*/
  1693. }
  1694.  
  1695.  
  1696. T2 r187static_value(T187* C){
  1697. T2 R=0;
  1698. /*[IF*/
  1699. if(X104is_void((/*RF2*/(C)->_target/*4*/))){
  1700. R=r187static_eq_void(r187arg1(C));
  1701. }
  1702.  else if(X104is_void(r187arg1(C))){
  1703. R=r187static_eq_void((/*RF2*/(C)->_target/*4*/));
  1704. }
  1705.  else if((X104is_static((/*RF2*/(C)->_target/*4*/)))&&(X104is_static(r187arg1(C)))){
  1706. /*[IF*/
  1707. if((X104static_value((/*RF2*/(C)->_target/*4*/)))==(X104static_value(r187arg1(C)))){
  1708. R=1;
  1709. }
  1710. /*FI]*/
  1711. }
  1712. /*FI]*/
  1713. return R;
  1714. }
  1715.  
  1716.  
  1717. T2 r187static_eq_void(T0* a1){
  1718. T2 R=0;
  1719. T0* _rt=NULL;
  1720. /*[IF*/
  1721. if(X104is_current(a1)){
  1722. }
  1723.  else if(X104is_manifest_string(a1)){
  1724. }
  1725.  else if(X104is_manifest_array(a1)){
  1726. }
  1727. else{
  1728. _rt=X52run_type(X104result_type(a1));
  1729. /*[IF*/
  1730. if(X52is_expanded(_rt)){
  1731. /*[IF*/
  1732. if(X104can_be_dropped(a1)){
  1733. R=0;
  1734. }
  1735. /*FI]*/
  1736. }
  1737.  else if(X104is_static(a1)){
  1738. /*[IF*/
  1739. if((X104static_value(a1))==(0)){
  1740. R=1;
  1741. }
  1742. /*FI]*/
  1743. }
  1744. /*FI]*/
  1745. }
  1746. /*FI]*/
  1747. return R;
  1748. }
  1749.  
  1750.  
  1751. void r187afd_check(T187* C){
  1752. T0* _running=NULL;
  1753. T0* _rc=NULL;
  1754. /*[IF*/
  1755. /*AF*//*AE*/
  1756. /*FI]*/
  1757. X104afd_check((/*RF2*/(C)->_target/*4*/));
  1758. /*[IF*/
  1759. {/*AT*//*SSPRF3*//*X139afd_check*/r139afd_check((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  1760. }
  1761. /*FI]*/
  1762. }
  1763.  
  1764.  
  1765. void r187c_declare_for_old(T187* C){
  1766. X104c_declare_for_old((/*RF2*/(C)->_target/*4*/));
  1767. /*[IF*/
  1768. {/*AT*//*SSPRF3*//*X139c_declare_for_old*/r139c_declare_for_old((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  1769. }
  1770. /*FI]*/
  1771. }
  1772.  
  1773.  
  1774. void r187collect_c_tmp(T187* C){
  1775. /*[IF*/
  1776. /*AF*//*AE*/
  1777. /*FI]*/
  1778. X104collect_c_tmp((/*RF2*/(C)->_target/*4*/));
  1779. /*[IF*/
  1780. if(((/*RF2*/(C)->_arguments/*8*/))!=((void*)(NULL))){
  1781. /*SSPRF3*//*X139collect_c_tmp*/r139collect_c_tmp((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  1782. }
  1783. /*FI]*/
  1784. }
  1785.  
  1786.  
  1787. T0* r187operator(void){
  1788. T0* R=NULL;
  1789. R=((T0*)ms15_61);
  1790. return R;
  1791. }
  1792.  
  1793.  
  1794. void r187cmp_bit(T187* C,T6 a1,T0* a2){
  1795. T0* _tb=NULL;
  1796. _tb=a2;
  1797. if(NULL!=(_tb)){
  1798. switch(((T0*)_tb)->id){
  1799. case 275:case 277:
  1800. break;
  1801. default:
  1802. _tb=NULL;
  1803. }
  1804. }/*[IF*/
  1805. if(X276is_c_unsigned_ptr(_tb)){
  1806. /*[IF*/
  1807. if(a1){
  1808. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1809. T3 b1=((T3)'\41');
  1810. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1811. }/*]*/
  1812. /*]*/
  1813. }
  1814. /*FI]*/
  1815. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms188_6776));
  1816. /*]*/
  1817. X104mapping_c_target((/*RF2*/(C)->_target/*4*/),a2);
  1818. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_375));
  1819. /*]*/
  1820. X104mapping_c_target(r187arg1(C),a2);
  1821. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms188_12670));
  1822. /*]*/
  1823. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),X276id(_tb));
  1824. /*]*/
  1825. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms188_164));
  1826. /*]*/
  1827. }
  1828. else{
  1829. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1830. T3 b1=((T3)'\50');
  1831. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1832. }/*]*/
  1833. /*]*/
  1834. X104compile_to_c((/*RF2*/(C)->_target/*4*/));
  1835. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1836. T3 b1=((T3)'\51');
  1837. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1838. }/*]*/
  1839. /*]*/
  1840. /*[IF*/
  1841. if(a1){
  1842. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_244));
  1843. /*]*/
  1844. }
  1845. else{
  1846. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_188a));
  1847. /*]*/
  1848. }
  1849. /*FI]*/
  1850. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1851. T3 b1=((T3)'\50');
  1852. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1853. }/*]*/
  1854. /*]*/
  1855. X104compile_to_c(r187arg1(C));
  1856. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1857. T3 b1=((T3)'\51');
  1858. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1859. }/*]*/
  1860. /*]*/
  1861. }
  1862. /*FI]*/
  1863. }
  1864.  
  1865.  
  1866. void r187cmp_basic_eiffel_expanded(T187* C,T6 a1,T0* a2,T0* a3){
  1867. T0* _cast=NULL;
  1868. /*[IF*/
  1869. if((X52is_double(a2))||(X52is_double(a3))){
  1870. _cast=((T0*)ms188_2988);
  1871. }
  1872.  else if((X52is_real(a2))||(X52is_real(a2))){
  1873. _cast=((T0*)ms188_2982);
  1874. }
  1875. /*FI]*/
  1876. /*[IF*/
  1877. if((_cast)!=((void*)(NULL))){
  1878. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),_cast);
  1879. /*]*/
  1880. }
  1881. /*FI]*/
  1882. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1883. T3 b1=((T3)'\50');
  1884. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1885. }/*]*/
  1886. /*]*/
  1887. X104compile_to_c((/*RF2*/(C)->_target/*4*/));
  1888. /*[IF*/
  1889. if((_cast)!=((void*)(NULL))){
  1890. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_164));
  1891. /*]*/
  1892. }
  1893. /*FI]*/
  1894. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1895. T3 b1=((T3)'\51');
  1896. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1897. }/*]*/
  1898. /*]*/
  1899. /*[IF*/
  1900. if(a1){
  1901. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_244));
  1902. /*]*/
  1903. }
  1904. else{
  1905. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_188a));
  1906. /*]*/
  1907. }
  1908. /*FI]*/
  1909. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1910. T3 b1=((T3)'\50');
  1911. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1912. }/*]*/
  1913. /*]*/
  1914. /*[IF*/
  1915. if((_cast)!=((void*)(NULL))){
  1916. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),_cast);
  1917. /*]*/
  1918. }
  1919. /*FI]*/
  1920. X104compile_to_c(r187arg1(C));
  1921. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1922. T3 b1=((T3)'\51');
  1923. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1924. }/*]*/
  1925. /*]*/
  1926. /*[IF*/
  1927. if((_cast)!=((void*)(NULL))){
  1928. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_164));
  1929. /*]*/
  1930. }
  1931. /*FI]*/
  1932. }
  1933.  
  1934.  
  1935. T0* r187runnable_args(T0* a1,T0* a2){
  1936. T0* R=NULL;
  1937. R=X139to_runnable(a1,a2);
  1938. /*[IF*/
  1939. if((R)==((void*)(NULL))){
  1940. {T68 se_tmp0;
  1941. r66add_position((*(se_tmp0=X139start_position(a1),&se_tmp0)));
  1942. }
  1943. r187fatal_error(((T0*)ms14_12870));
  1944. }
  1945. /*FI]*/
  1946. return R;
  1947. }
  1948.  
  1949.  
  1950. void r187bit_limitation(T187* C,T0* a1,T0* a2){
  1951. T0* _b2=NULL;
  1952. T0* _b1=NULL;
  1953. _b1=a1;
  1954. if(NULL!=(_b1)){
  1955. switch(((T0*)_b1)->id){
  1956. case 275:case 277:
  1957. break;
  1958. default:
  1959. _b1=NULL;
  1960. }
  1961. }_b2=a2;
  1962. if(NULL!=(_b2)){
  1963. switch(((T0*)_b2)->id){
  1964. case 275:case 277:
  1965. break;
  1966. default:
  1967. _b2=NULL;
  1968. }
  1969. }/*[IF*/
  1970. if((X276nb(_b1))!=(X276nb(_b2))){
  1971. r66add_position((/*RF2*/((T129*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/));
  1972. /*[IRF3.6append*/{T0* b1=((T0*)ms188_20976);
  1973. r7append((T7*)(oBC66explanation),b1);
  1974. }/*]*/
  1975. r66add_type(_b1,((T0*)ms188_1855));
  1976. r66add_type(_b2,((T0*)ms188_382452));
  1977. r66print_as_fatal_error((T66*)(oBC13eh));
  1978. }
  1979. /*FI]*/
  1980. }
  1981.  
  1982.  
  1983. void r187error(T68 a1,T0* a2){
  1984. r66add_position(a1);
  1985. /*[IRF3.6append*/{T0* b1=a2;
  1986. r7append((T7*)(oBC66explanation),b1);
  1987. }/*]*/
  1988. r66print_as_error((T66*)(oBC13eh));
  1989. }
  1990.  
  1991.  
  1992. void r187dca_inline(T187* C,T0* a1){
  1993. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  1994. T3 b1=((T3)'\50');
  1995. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  1996. }/*]*/
  1997. /*]*/
  1998. r325put_target_as_value((T325*)(oBC13cpp));
  1999. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2000. T3 b1=((T3)'\51');
  2001. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2002. }/*]*/
  2003. /*]*/
  2004. /*[IF*/
  2005. if((/*(IRF4.6first*/((/*RF2*/((T7*)(r187operator()))->_storage/*0*/))[0]/*)*/)==(((T3)'\75'))){
  2006. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_244));
  2007. /*]*/
  2008. }
  2009. else{
  2010. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_188a));
  2011. /*]*/
  2012. }
  2013. /*FI]*/
  2014. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2015. T3 b1=((T3)'\50');
  2016. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2017. }/*]*/
  2018. /*]*/
  2019. X104dca_inline_argument(r187arg1(C),a1);
  2020. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2021. T3 b1=((T3)'\51');
  2022. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2023. }/*]*/
  2024. /*]*/
  2025. }
  2026.  
  2027.  
  2028. void r187cmp_basic_ref(T187* C,T6 a1){
  2029. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2030. T3 b1=((T3)'\50');
  2031. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2032. }/*]*/
  2033. /*]*/
  2034. X104compile_to_c((/*RF2*/(C)->_target/*4*/));
  2035. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2036. T3 b1=((T3)'\51');
  2037. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2038. }/*]*/
  2039. /*]*/
  2040. /*[IF*/
  2041. if(a1){
  2042. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_244));
  2043. /*]*/
  2044. }
  2045. else{
  2046. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_188a));
  2047. /*]*/
  2048. }
  2049. /*FI]*/
  2050. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2051. T3 b1=((T3)'\50');
  2052. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2053. }/*]*/
  2054. /*]*/
  2055. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_5327));
  2056. /*]*/
  2057. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2058. T3 b1=((T3)'\50');
  2059. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2060. }/*]*/
  2061. /*]*/
  2062. X104compile_to_c(r187arg1(C));
  2063. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2064. T3 b1=((T3)'\51');
  2065. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2066. }/*]*/
  2067. /*]*/
  2068. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2069. T3 b1=((T3)'\51');
  2070. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2071. }/*]*/
  2072. /*]*/
  2073. }
  2074. T0*oBC13type_boolean=NULL;
  2075. int fBC13type_boolean=0;
  2076.  
  2077.  
  2078. T0* r187type_boolean(void){
  2079. if(fBC13type_boolean==0){fBC13type_boolean=1;{
  2080. T68 _unknown_position={NULL,0};
  2081. {T263*n=((T263*)malloc(sizeof(*n))/*8*/);
  2082. *n=M263;
  2083. oBC13type_boolean=((T0*)n);
  2084. r263make(n,_unknown_position);
  2085. }
  2086. }}
  2087. return oBC13type_boolean;
  2088. }
  2089.  
  2090.  
  2091. T6 r187call_proc_call_stupid_switch(T187* C,T0* a1){
  2092. T6 R=0;
  2093. /*[IF*/
  2094. if(((/*RF2*/(C)->_arguments/*8*/))==((void*)(NULL))){
  2095. R=1;
  2096. }
  2097. else{
  2098. R=/*SSFRF4*//*X139stupid_switch*/r139stupid_switch((T139*)((/*RF2*/(C)->_arguments/*8*/)),a1);
  2099. }
  2100. /*FI]*/
  2101. /*[IF*/
  2102. if(R){
  2103. /*[IF*/
  2104. if(X104is_current((/*RF2*/(C)->_target/*4*/))){
  2105. /*[IF*/
  2106. if(r49same_base_feature(/*(IRF4.1run_feature*/NULL/*)*/,a1)){
  2107. R=(X334stupid_switch(/*(IRF4.1run_feature*/NULL/*)*/,a1))!=((void*)(NULL));
  2108. }
  2109. else{
  2110. R=0;
  2111. }
  2112. /*FI]*/
  2113. }
  2114. else{
  2115. R=X104stupid_switch((/*RF2*/(C)->_target/*4*/),a1);
  2116. }
  2117. /*FI]*/
  2118. }
  2119. /*FI]*/
  2120. return R;
  2121. }
  2122.  
  2123.  
  2124. void r187make(T187* C,T0* a1,T68 a2,T0* a3){
  2125. (/*SFN*/C->_target)=a1;
  2126. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  2127. *n=M129;
  2128. r129make(n,r187operator(),a2);
  2129. (/*SFN*/C->_feature_name)=((T0*)n);
  2130. }
  2131. {T139*n=((T139*)malloc(sizeof(*n))/*16*/);
  2132. *n=M139;
  2133. /*[IRF3.3make_1*/((((T139*)(n)))->_first_one)=(a3);
  2134. /*]*/
  2135. (/*SFN*/C->_arguments)=((T0*)n);
  2136. }
  2137. }
  2138.  
  2139.  
  2140. void r187error_comparison(T187* C,T0* a1,T0* a2){
  2141. r66add_position((/*RF2*/((T129*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/));
  2142. /*[IRF3.6append*/{T0* b1=((T0*)ms188_9780);
  2143. r7append((T7*)(oBC66explanation),b1);
  2144. }/*]*/
  2145. /*[IRF3.6append*/{T0* b1=a1;
  2146. r7append((T7*)(oBC66explanation),b1);
  2147. }/*]*/
  2148. /*[IRF3.6append*/{T0* b1=((T0*)ms188_88031);
  2149. r7append((T7*)(oBC66explanation),b1);
  2150. }/*]*/
  2151. r66add_type(a2,((T0*)ms14_46));
  2152. r66print_as_fatal_error((T66*)(oBC13eh));
  2153. }
  2154.  
  2155.  
  2156. T6 r187is_static_eq_void(T0* a1){
  2157. T6 R=0;
  2158. T0* _rt=NULL;
  2159. /*[IF*/
  2160. if(X104is_current(a1)){
  2161. R=1;
  2162. }
  2163.  else if(X104is_manifest_string(a1)){
  2164. R=1;
  2165. }
  2166.  else if(X104is_manifest_array(a1)){
  2167. R=1;
  2168. }
  2169. else{
  2170. _rt=X52run_type(X104result_type(a1));
  2171. /*[IF*/
  2172. if(X52is_expanded(_rt)){
  2173. /*[IF*/
  2174. if(X104can_be_dropped(a1)){
  2175. R=1;
  2176. }
  2177. /*FI]*/
  2178. }
  2179.  else if(X104is_static(a1)){
  2180. /*[IF*/
  2181. if((X104static_value(a1))==(0)){
  2182. R=1;
  2183. }
  2184. /*FI]*/
  2185. }
  2186. /*FI]*/
  2187. }
  2188. /*FI]*/
  2189. return R;
  2190. }
  2191.  
  2192.  
  2193. T0* r187runnable_expression(T0* a1,T0* a2){
  2194. T0* R=NULL;
  2195. R=X104to_runnable(a1,a2);
  2196. /*[IF*/
  2197. if((R)==((void*)(NULL))){
  2198. {T68 se_tmp0;
  2199. r66add_position((*(se_tmp0=X104start_position(a1),&se_tmp0)));
  2200. }
  2201. r187fatal_error(((T0*)ms116_16290));
  2202. }
  2203. /*FI]*/
  2204. return R;
  2205. }
  2206.  
  2207.  
  2208. void r187check_comparison(T187* C,T0* a1){
  2209. T0* _at=NULL;
  2210. T0* _tt=NULL;
  2211. /*[IF*/
  2212. if((/*(IRF4.9nb_errors*/(/*RF2*/((T66*)(oBC13eh))->_error_counter/*0*/)/*)*/)==(0)){
  2213. _tt=X52run_type(X104result_type((/*RF2*/(C)->_target/*4*/)));
  2214. _at=X52run_type(X104result_type(r187arg1(C)));
  2215. /*[IF*/
  2216. if(X52is_none(_tt)){
  2217. }
  2218.  else if(X52is_none(_at)){
  2219. }
  2220.  else if(X52is_reference(_tt)){
  2221. /*[IF*/
  2222. if(X52is_reference(_at)){
  2223. }
  2224.  else if(!(X52is_a(_at,_tt))){
  2225. r187error_comparison(C,((T0*)ms188_41400),a1);
  2226. }
  2227. /*FI]*/
  2228. }
  2229. else{
  2230. /*[IF*/
  2231. if(X52is_expanded(_at)){
  2232. /*[IF*/
  2233. if(X52is_basic_eiffel_expanded(_at)){
  2234. /*[IF*/
  2235. if(X52is_a(_tt,_at)){
  2236. }
  2237. else{
  2238. /*[IRF3.2cancel*//*[IRF3.3clear*/((((T7*)((T7*)(oBC66explanation))))->_count)=(0);
  2239. /*]*/
  2240. /*[IRF3.3clear*/((((T67*)((T67*)(oBC66positions))))->_upper)=(-(1));
  2241. /*]*/
  2242. /*]*/
  2243. /*[IF*/
  2244. if(X52is_a(_at,_tt)){
  2245. }
  2246. else{
  2247. r187error_comparison(C,((T0*)ms188_37536),a1);
  2248. }
  2249. /*FI]*/
  2250. }
  2251. /*FI]*/
  2252. }
  2253.  else if(X52is_bit(_tt)){
  2254. r187bit_limitation(C,_tt,_at);
  2255. }
  2256.  else if(!(X52is_a(_at,_tt))){
  2257. r187error_comparison(C,((T0*)ms188_37536a),a1);
  2258. }
  2259. /*FI]*/
  2260. }
  2261.  else if(!(X52is_a(_tt,_at))){
  2262. r187error_comparison(C,((T0*)ms188_41868),a1);
  2263. }
  2264. /*FI]*/
  2265. }
  2266. /*FI]*/
  2267. }
  2268. /*FI]*/
  2269. }
  2270.  
  2271.  
  2272. T0* r187add_comment(T187* C,T0* a1){
  2273. T0* R=NULL;
  2274. /*[IF*/
  2275. if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)==(0))){
  2276. R=((T0*)(C));
  2277. }
  2278. else{
  2279. {T229*n=((T229*)malloc(sizeof(*n))/*12*/);
  2280. *n=M229;
  2281. r229make(n,(T0*)C,a1);
  2282. R=((T0*)n);
  2283. }
  2284. }
  2285. /*FI]*/
  2286. return R;
  2287. }
  2288.  
  2289.  
  2290. void r187mapping_c_target(T187* C,T0* a1){
  2291. T0* _actual_type=NULL;
  2292. T6 _flag=0;
  2293. _flag=r325call_invariant_start(a1);
  2294. _actual_type=X52run_type(/*(IRF4.8result_type*/r187type_boolean()/*)*/);
  2295. /*[IF*/
  2296. if(X52is_reference(_actual_type)){
  2297. /*[IF*/
  2298. if(X52is_reference(a1)){
  2299. X52mapping_cast(a1);
  2300. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2301. T3 b1=((T3)'\50');
  2302. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2303. }/*]*/
  2304. /*]*/
  2305. r187compile_to_c(C);
  2306. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2307. T3 b1=((T3)'\51');
  2308. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2309. }/*]*/
  2310. /*]*/
  2311. }
  2312. else{
  2313. r187compile_to_c(C);
  2314. }
  2315. /*FI]*/
  2316. }
  2317. else{
  2318. /*[IF*/
  2319. if(X52is_reference(a1)){
  2320. r187compile_to_c(C);
  2321. }
  2322. else{
  2323. /*[IF*/
  2324. if(X52need_c_struct(a1)){
  2325. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2326. T3 b1=((T3)'\46');
  2327. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2328. }/*]*/
  2329. /*]*/
  2330. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2331. T3 b1=((T3)'\50');
  2332. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2333. }/*]*/
  2334. /*]*/
  2335. r187compile_to_c(C);
  2336. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2337. T3 b1=((T3)'\51');
  2338. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2339. }/*]*/
  2340. /*]*/
  2341. }
  2342. else{
  2343. r187compile_to_c(C);
  2344. }
  2345. /*FI]*/
  2346. }
  2347. /*FI]*/
  2348. }
  2349. /*FI]*/
  2350. /*[IF*/
  2351. if(_flag){
  2352. /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  2353. T3 b1=((T3)'\51');
  2354. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2355. }/*]*/
  2356. /*]*/
  2357. }
  2358. /*FI]*/
  2359. }
  2360.  
  2361.  
  2362. void r187with(T187* C,T0* a1,T0* a2,T0* a3){
  2363. (/*SFN*/C->_target)=a1;
  2364. (/*SFN*/C->_feature_name)=a2;
  2365. (/*SFN*/C->_arguments)=a3;
  2366. }
  2367.  
  2368.  
  2369. T6 r187use_current(T187* C){
  2370. T6 R=0;
  2371. R=(X104use_current((/*RF2*/(C)->_target/*4*/)))||(X104use_current(r187arg1(C)));
  2372. return R;
  2373. }
  2374.  
  2375.  
  2376. T0* r187to_runnable(T187* C,T0* a1){
  2377. T0* R=NULL;
  2378. T0* _a=NULL;
  2379. T0* _t=NULL;
  2380. _t=r187runnable_expression((/*RF2*/(C)->_target/*4*/),a1);
  2381. _a=r187runnable_args((/*RF2*/(C)->_arguments/*8*/),a1);
  2382. /*[IF*/
  2383. if(((_t)==((void*)((/*RF2*/(C)->_target/*4*/))))&&((_a)==((void*)((/*RF2*/(C)->_arguments/*8*/))))){
  2384. R=((T0*)(C));
  2385. }
  2386. else{
  2387. {T187*n=((T187*)malloc(sizeof(*n))/*16*/);
  2388. *n=M187;
  2389. r187with(n,_t,(/*RF2*/(C)->_feature_name/*12*/),_a);
  2390. R=((T0*)n);
  2391. }
  2392. }
  2393. /*FI]*/
  2394. r187check_comparison(((T187*)R),a1);
  2395. return R;
  2396. }
  2397.  
  2398.  
  2399. T2 r187to_integer(T187* C){
  2400. T2 R=0;
  2401. r187error(/*(IRF4.6start_position*/(/*RF2*/(((T129*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/,((T0*)ms14_45441));
  2402. return R;
  2403. }
  2404.  
  2405.  
  2406. T6 r187is_static(T187* C){
  2407. T6 R=0;
  2408. /*[IF*/
  2409. if(X104is_void((/*RF2*/(C)->_target/*4*/))){
  2410. R=r187is_static_eq_void(r187arg1(C));
  2411. }
  2412.  else if(X104is_void(r187arg1(C))){
  2413. R=r187is_static_eq_void((/*RF2*/(C)->_target/*4*/));
  2414. }
  2415.  else if((X104is_static((/*RF2*/(C)->_target/*4*/)))&&(X104is_static(r187arg1(C)))){
  2416. R=1;
  2417. }
  2418. /*FI]*/
  2419. return R;
  2420. }
  2421.  
  2422.  
  2423. T0* r187arg1(T187* C){
  2424. T0* R=NULL;
  2425. R=/*SSFRF4*//*X139first*//*(IRF4.3first*/(/*RF2*/((T139*)((/*RF2*/(C)->_arguments/*8*/)))->_first_one/*4*/)/*)*/;
  2426. return R;
  2427. }
  2428.  
  2429.  
  2430. void r187cmp_user_expanded(T187* C,T6 a1,T0* a2){
  2431. T2 _mem_id=0;
  2432. /*[IF*/
  2433. if(X52is_dummy_expanded(a2)){
  2434. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2435. T3 b1=((T3)'\50');
  2436. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2437. }/*]*/
  2438. /*]*/
  2439. X104compile_to_c((/*RF2*/(C)->_target/*4*/));
  2440. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2441. T3 b1=((T3)'\54');
  2442. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2443. }/*]*/
  2444. /*]*/
  2445. X104compile_to_c(r187arg1(C));
  2446. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2447. T3 b1=((T3)'\54');
  2448. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2449. }/*]*/
  2450. /*]*/
  2451. /*[IF*/
  2452. if(a1){
  2453. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2454. T3 b1=((T3)'1');
  2455. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2456. }/*]*/
  2457. /*]*/
  2458. }
  2459. else{
  2460. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2461. T3 b1=((T3)'0');
  2462. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2463. }/*]*/
  2464. /*]*/
  2465. }
  2466. /*FI]*/
  2467. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2468. T3 b1=((T3)'\51');
  2469. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2470. }/*]*/
  2471. /*]*/
  2472. }
  2473. else{
  2474. _mem_id=X52id(a2);
  2475. /*[IF*/
  2476. if(a1){
  2477. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2478. T3 b1=((T3)'\41');
  2479. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2480. }/*]*/
  2481. /*]*/
  2482. }
  2483. /*FI]*/
  2484. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_7749));
  2485. /*]*/
  2486. /*[IRF3.5put_integer*/r48put_integer(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),_mem_id);
  2487. /*]*/
  2488. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_160a));
  2489. /*]*/
  2490. X104compile_to_c((/*RF2*/(C)->_target/*4*/));
  2491. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_375));
  2492. /*]*/
  2493. X104compile_to_c(r187arg1(C));
  2494. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_164));
  2495. /*]*/
  2496. }
  2497. /*FI]*/
  2498. }
  2499.  
  2500.  
  2501. T0* r187static_result_base_class(void){
  2502. T0* R=NULL;
  2503. R=r49get_class(((T0*)ms15_6405));
  2504. return R;
  2505. }
  2506.  
  2507.  
  2508. void r187fatal_error(T0* a1){
  2509. /*[IRF3.6append*/{T0* b1=a1;
  2510. r7append((T7*)(oBC66explanation),b1);
  2511. }/*]*/
  2512. r66print_as_fatal_error((T66*)(oBC13eh));
  2513. }
  2514.  
  2515.  
  2516. void r187c2c_exp_ref(T0* a1,T0* a2,T0* a3,T0* a4){
  2517. /*[IF*/
  2518. if(X104is_void(a3)){
  2519. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_160a));
  2520. /*]*/
  2521. X104compile_to_c(a1);
  2522. }
  2523. else{
  2524. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_160a));
  2525. /*]*/
  2526. X104compile_to_c(a1);
  2527. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_375));
  2528. /*]*/
  2529. X104compile_to_c(a3);
  2530. }
  2531. /*FI]*/
  2532. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms187_696));
  2533. /*]*/
  2534. }
  2535.  
  2536.  
  2537. void r187assertion_check(T187* C,T3 a1){
  2538. X104assertion_check((/*RF2*/(C)->_target/*4*/),a1);
  2539. X104assertion_check(r187arg1(C),a1);
  2540. }
  2541.  
  2542.  
  2543. void r187compile_to_c(T187* C){
  2544. T0* _at=NULL;
  2545. T0* _tt=NULL;
  2546. _tt=X52run_type(X104result_type((/*RF2*/(C)->_target/*4*/)));
  2547. _at=X52run_type(X104result_type(r187arg1(C)));
  2548. /*[IF*/
  2549. if(X52is_expanded(_tt)){
  2550. /*[IF*/
  2551. if(X52is_expanded(_at)){
  2552. /*[IF*/
  2553. if(X52is_user_expanded(_tt)){
  2554. r187cmp_user_expanded(C,1,_tt);
  2555. }
  2556.  else if(X52is_basic_eiffel_expanded(_tt)){
  2557. r187cmp_basic_eiffel_expanded(C,1,_at,_tt);
  2558. }
  2559.  else if(X52is_bit(_tt)){
  2560. r187cmp_bit(C,1,_tt);
  2561. }
  2562. else{
  2563. r187cmp_basic_ref(C,1);
  2564. }
  2565. /*FI]*/
  2566. }
  2567. else{
  2568. r187c2c_exp_ref((/*RF2*/(C)->_target/*4*/),_tt,r187arg1(C),_at);
  2569. }
  2570. /*FI]*/
  2571. }
  2572.  else if(X52is_expanded(_at)){
  2573. r187c2c_exp_ref(r187arg1(C),_at,(/*RF2*/(C)->_target/*4*/),_tt);
  2574. }
  2575. else{
  2576. r187cmp_basic_ref(C,1);
  2577. }
  2578. /*FI]*/
  2579. }
  2580.  
  2581.  
  2582. T6 r187stupid_switch(T187* C,T0* a1){
  2583. T6 R=0;
  2584. R=r187call_proc_call_stupid_switch(C,a1);
  2585. /*[IF*/
  2586. if(R){
  2587. R=!(X52is_native_array(/*(IRF4.8result_type*/r187type_boolean()/*)*/));
  2588. }
  2589. /*FI]*/
  2590. return R;
  2591. }
  2592.  
  2593.  
  2594. void r120compile_to_c_old(T120* C){
  2595. X104compile_to_c_old((/*RF2*/(C)->_target/*4*/));
  2596. /*[IF*/
  2597. {/*AT*//*SSPRF3*//*X139compile_to_c_old*/r139compile_to_c_old((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  2598. }
  2599. /*FI]*/
  2600. }
  2601.  
  2602.  
  2603. T0* r120runnable_expression(T0* a1,T0* a2){
  2604. T0* R=NULL;
  2605. R=X104to_runnable(a1,a2);
  2606. /*[IF*/
  2607. if((R)==((void*)(NULL))){
  2608. {T68 se_tmp0;
  2609. r66add_position((*(se_tmp0=X104start_position(a1),&se_tmp0)));
  2610. }
  2611. r120fatal_error(((T0*)ms116_16290));
  2612. }
  2613. /*FI]*/
  2614. return R;
  2615. }
  2616.  
  2617.  
  2618. void r120run_feature_has_result(T120* C){
  2619. /*[IF*/
  2620. if((X334result_type((/*RF2*/(C)->_run_feature/*16*/)))==((void*)(NULL))){
  2621. {T68 se_tmp0;
  2622. r66add_position((*(se_tmp0=X334start_position((/*RF2*/(C)->_run_feature/*16*/)),&se_tmp0)));
  2623. }
  2624. r66add_position((/*RF2*/((T129*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/));
  2625. r120fatal_error(((T0*)ms115_53215));
  2626. }
  2627. /*FI]*/
  2628. }
  2629.  
  2630.  
  2631. void r120run_feature_match(T120* C,T0* a1){
  2632. r120run_feature_has_result(C);
  2633. X139match_with((/*RF2*/(C)->_arguments/*8*/),(/*RF2*/(C)->_run_feature/*16*/),a1);
  2634. }
  2635.  
  2636.  
  2637. T0* r120add_comment(T120* C,T0* a1){
  2638. T0* R=NULL;
  2639. /*[IF*/
  2640. if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)==(0))){
  2641. R=((T0*)(C));
  2642. }
  2643. else{
  2644. {T229*n=((T229*)malloc(sizeof(*n))/*12*/);
  2645. *n=M229;
  2646. r229make(n,(T0*)C,a1);
  2647. R=((T0*)n);
  2648. }
  2649. }
  2650. /*FI]*/
  2651. return R;
  2652. }
  2653.  
  2654.  
  2655. void r120with(T120* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
  2656. (/*SFN*/C->_target)=a1;
  2657. (/*SFN*/C->_feature_name)=a2;
  2658. (/*SFN*/C->_arguments)=a3;
  2659. (/*SFN*/C->_run_feature)=a4;
  2660. r120run_feature_match(C,a5);
  2661. }
  2662.  
  2663.  
  2664. void r120mapping_c_target(T120* C,T0* a1){
  2665. T0* _actual_type=NULL;
  2666. T6 _flag=0;
  2667. _flag=r325call_invariant_start(a1);
  2668. _actual_type=X52run_type(r120result_type(C));
  2669. /*[IF*/
  2670. if(X52is_reference(_actual_type)){
  2671. /*[IF*/
  2672. if(X52is_reference(a1)){
  2673. X52mapping_cast(a1);
  2674. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2675. T3 b1=((T3)'\50');
  2676. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2677. }/*]*/
  2678. /*]*/
  2679. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T120* C1=C;
  2680. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  2681. }/*]*/
  2682. /*]*/
  2683. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2684. T3 b1=((T3)'\51');
  2685. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2686. }/*]*/
  2687. /*]*/
  2688. }
  2689. else{
  2690. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T120* C1=C;
  2691. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  2692. }/*]*/
  2693. /*]*/
  2694. }
  2695. /*FI]*/
  2696. }
  2697. else{
  2698. /*[IF*/
  2699. if(X52is_reference(a1)){
  2700. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T120* C1=C;
  2701. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  2702. }/*]*/
  2703. /*]*/
  2704. }
  2705. else{
  2706. /*[IF*/
  2707. if(X52need_c_struct(a1)){
  2708. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2709. T3 b1=((T3)'\46');
  2710. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2711. }/*]*/
  2712. /*]*/
  2713. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2714. T3 b1=((T3)'\50');
  2715. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2716. }/*]*/
  2717. /*]*/
  2718. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T120* C1=C;
  2719. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  2720. }/*]*/
  2721. /*]*/
  2722. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  2723. T3 b1=((T3)'\51');
  2724. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2725. }/*]*/
  2726. /*]*/
  2727. }
  2728. else{
  2729. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T120* C1=C;
  2730. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  2731. }/*]*/
  2732. /*]*/
  2733. }
  2734. /*FI]*/
  2735. }
  2736. /*FI]*/
  2737. }
  2738. /*FI]*/
  2739. /*[IF*/
  2740. if(_flag){
  2741. /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  2742. T3 b1=((T3)'\51');
  2743. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  2744. }/*]*/
  2745. /*]*/
  2746. }
  2747. /*FI]*/
  2748. }
  2749.  
  2750.  
  2751. void r120afd_check(T120* C){
  2752. T0* _running=NULL;
  2753. T0* _rc=NULL;
  2754. /*[IF*/
  2755. if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){
  2756. _rc=X52run_class(X104result_type((/*RF2*/(C)->_target/*4*/)));
  2757. _running=(/*RF2*/(((T50*)_rc))->_running/*9*/);
  2758. /*[IF*/
  2759. if((_running)==((void*)(NULL))){
  2760. }
  2761.  else if((r53count(((T53*)_running)))>(1)){
  2762. r351update((/*RF2*/(C)->_target/*4*/),(/*RF2*/(C)->_run_feature/*16*/));
  2763. }
  2764. /*FI]*/
  2765. }
  2766. /*FI]*/
  2767. X104afd_check((/*RF2*/(C)->_target/*4*/));
  2768. /*[IF*/
  2769. {/*AT*//*SSPRF3*//*X139afd_check*/r139afd_check((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  2770. }
  2771. /*FI]*/
  2772. }
  2773.  
  2774.  
  2775. void r120c_declare_for_old(T120* C){
  2776. X104c_declare_for_old((/*RF2*/(C)->_target/*4*/));
  2777. /*[IF*/
  2778. {/*AT*//*SSPRF3*//*X139c_declare_for_old*/r139c_declare_for_old((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  2779. }
  2780. /*FI]*/
  2781. }
  2782.  
  2783.  
  2784. void r120collect_c_tmp(T120* C){
  2785. /*[IF*/
  2786. if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){
  2787. X334collect_c_tmp((/*RF2*/(C)->_run_feature/*16*/));
  2788. }
  2789. /*FI]*/
  2790. X104collect_c_tmp((/*RF2*/(C)->_target/*4*/));
  2791. /*[IF*/
  2792. if(((/*RF2*/(C)->_arguments/*8*/))!=((void*)(NULL))){
  2793. /*SSPRF3*//*X139collect_c_tmp*/r139collect_c_tmp((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  2794. }
  2795. /*FI]*/
  2796. }
  2797.  
  2798.  
  2799. T0* r120operator(void){
  2800. T0* R=NULL;
  2801. R=((T0*)ms15_921);
  2802. return R;
  2803. }
  2804.  
  2805.  
  2806. T6 r120use_current(T120* C){
  2807. T6 R=0;
  2808. /*[IF*/
  2809. {/*AT*/R=/*SSFRF4*//*X139use_current*/r139use_current((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  2810. }
  2811. /*FI]*/
  2812. /*[IF*/
  2813. if(R){
  2814. }
  2815.  else if(X104is_current((/*RF2*/(C)->_target/*4*/))){
  2816. R=X334use_current((/*RF2*/(C)->_run_feature/*16*/));
  2817. }
  2818. else{
  2819. R=X104use_current((/*RF2*/(C)->_target/*4*/));
  2820. }
  2821. /*FI]*/
  2822. return R;
  2823. }
  2824.  
  2825.  
  2826. T0* r120runnable_args(T0* a1,T0* a2){
  2827. T0* R=NULL;
  2828. R=X139to_runnable(a1,a2);
  2829. /*[IF*/
  2830. if((R)==((void*)(NULL))){
  2831. {T68 se_tmp0;
  2832. r66add_position((*(se_tmp0=X139start_position(a1),&se_tmp0)));
  2833. }
  2834. r120fatal_error(((T0*)ms14_12870));
  2835. }
  2836. /*FI]*/
  2837. return R;
  2838. }
  2839.  
  2840.  
  2841. T0* r120to_runnable(T120* C,T0* a1){
  2842. T0* R=NULL;
  2843. T0* _target_type=NULL;
  2844. T0* _argument_type=NULL;
  2845. T0* _rf=NULL;
  2846. T0* _a=NULL;
  2847. T0* _t=NULL;
  2848. _t=r120runnable_expression((/*RF2*/(C)->_target/*4*/),a1);
  2849. _a=r120runnable_args((/*RF2*/(C)->_arguments/*8*/),a1);
  2850. _target_type=X104result_type(_t);
  2851. _argument_type=X104result_type(r120arg1(C));
  2852. /*[IF*/
  2853. if(X52is_real(_argument_type)){
  2854. /*[IF*/
  2855. if(X52is_integer(_target_type)){
  2856. _t=r341implicit_cast((T341*)(oBC13conversion_handler),_t,_argument_type);
  2857. }
  2858. /*FI]*/
  2859. }
  2860.  else if(X52is_double(_argument_type)){
  2861. /*[IF*/
  2862. if((X52is_integer(_target_type))||(X52is_real(_target_type))){
  2863. _t=r341implicit_cast((T341*)(oBC13conversion_handler),_t,_argument_type);
  2864. }
  2865. /*FI]*/
  2866. }
  2867. /*FI]*/
  2868. _rf=r120run_feature_for(C,_t,a1);
  2869. /*[IF*/
  2870. if(((/*RF2*/(C)->_run_feature/*16*/))==((void*)(NULL))){
  2871. (/*SFN*/C->_target)=_t;
  2872. (/*SFN*/C->_arguments)=_a;
  2873. (/*SFN*/C->_run_feature)=_rf;
  2874. r120run_feature_match(C,a1);
  2875. R=((T0*)(C));
  2876. }
  2877.  else if(((_t)==((void*)((/*RF2*/(C)->_target/*4*/))))&&((_a)==((void*)((/*RF2*/(C)->_arguments/*8*/))))){
  2878. R=((T0*)(C));
  2879. }
  2880. else{
  2881. {T120*n=((T120*)malloc(sizeof(*n))/*24*/);
  2882. *n=M120;
  2883. r120with(n,_t,(/*RF2*/(C)->_feature_name/*12*/),_a,_rf,a1);
  2884. R=((T0*)n);
  2885. }
  2886. }
  2887. /*FI]*/
  2888. return R;
  2889. }
  2890.  
  2891.  
  2892. T2 r120to_integer(T120* C){
  2893. T2 R=0;
  2894. r120error(/*(IRF4.6start_position*/(/*RF2*/(((T129*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/,((T0*)ms14_45441));
  2895. return R;
  2896. }
  2897.  
  2898.  
  2899. T6 r120is_static(T120* C){
  2900. T6 R=0;
  2901. /*[IF*/
  2902. if(X52is_boolean(X104result_type((/*RF2*/(C)->_target/*4*/)))){
  2903. /*[IF*/
  2904. if((X104is_static((/*RF2*/(C)->_target/*4*/)))&&(X104is_static(r120arg1(C)))){
  2905. R=1;
  2906. (/*SFN*/C->_static_value_mem)=(X104static_value((/*RF2*/(C)->_target/*4*/)))+(X104static_value(r120arg1(C)));
  2907. /*[IF*/
  2908. if(((/*RF2*/(C)->_static_value_mem/*20*/))==(2)){
  2909. (/*SFN*/C->_static_value_mem)=1;
  2910. }
  2911. else{
  2912. (/*SFN*/C->_static_value_mem)=0;
  2913. }
  2914. /*FI]*/
  2915. }
  2916. /*FI]*/
  2917. }
  2918. /*FI]*/
  2919. return R;
  2920. }
  2921.  
  2922.  
  2923. void r120finalize(T120* C){
  2924. T0* _rf=NULL;
  2925. T0* _rc=NULL;
  2926. _rf=(/*RF2*/(C)->_run_feature/*16*/);
  2927. _rc=X52run_class(/*SSWARF2*//*X334current_type*/(/*RF2*/(((T368*)_rf))->_current_type/*8*/));
  2928. (/*SFN*/C->_run_feature)=r50dynamic((T50*)(/*(IRF4.6first*/((/*RF2*/((T53*)((/*RF2*/(((T50*)_rc))->_running/*9*/)))->_storage/*0*/))[0]/*)*/),_rf);
  2929. }
  2930.  
  2931.  
  2932. void r120error(T68 a1,T0* a2){
  2933. r66add_position(a1);
  2934. /*[IRF3.6append*/{T0* b1=a2;
  2935. r7append((T7*)(oBC66explanation),b1);
  2936. }/*]*/
  2937. r66print_as_error((T66*)(oBC13eh));
  2938. }
  2939.  
  2940.  
  2941. T0* r120result_type(T120* C){
  2942. T0* R=NULL;
  2943. T0* _tla=NULL;
  2944. R=X334result_type((/*RF2*/(C)->_run_feature/*16*/));
  2945. /*[IF*/
  2946. if(X52is_like_current(R)){
  2947. R=/*SSWARF2*//*X334current_type*/(/*RF2*/((T368*)((/*RF2*/(C)->_run_feature/*16*/)))->_current_type/*8*/);
  2948. }
  2949. else{
  2950. _tla=R;
  2951. if(NULL!=(_tla)){
  2952. switch(((T0*)_tla)->id){
  2953. case 257:
  2954. break;
  2955. default:
  2956. _tla=NULL;
  2957. }
  2958. }/*[IF*/
  2959. if((_tla)!=((void*)(NULL))){
  2960. R=X52run_type(X104result_type(r120arg1(C)));
  2961. }
  2962. /*FI]*/
  2963. }
  2964. /*FI]*/
  2965. return R;
  2966. }
  2967.  
  2968.  
  2969. T0* r120arg1(T120* C){
  2970. T0* R=NULL;
  2971. R=/*SSFRF4*//*X139first*//*(IRF4.3first*/(/*RF2*/((T139*)((/*RF2*/(C)->_arguments/*8*/)))->_first_one/*4*/)/*)*/;
  2972. return R;
  2973. }
  2974.  
  2975.  
  2976. T6 r120call_proc_call_stupid_switch(T120* C,T0* a1){
  2977. T6 R=0;
  2978. /*[IF*/
  2979. if(((/*RF2*/(C)->_arguments/*8*/))==((void*)(NULL))){
  2980. R=1;
  2981. }
  2982. else{
  2983. R=/*SSFRF4*//*X139stupid_switch*/r139stupid_switch((T139*)((/*RF2*/(C)->_arguments/*8*/)),a1);
  2984. }
  2985. /*FI]*/
  2986. /*[IF*/
  2987. if(R){
  2988. /*[IF*/
  2989. if(X104is_current((/*RF2*/(C)->_target/*4*/))){
  2990. /*[IF*/
  2991. if(r49same_base_feature((/*RF2*/(C)->_run_feature/*16*/),a1)){
  2992. R=(X334stupid_switch((/*RF2*/(C)->_run_feature/*16*/),a1))!=((void*)(NULL));
  2993. }
  2994. else{
  2995. R=0;
  2996. }
  2997. /*FI]*/
  2998. }
  2999. else{
  3000. R=X104stupid_switch((/*RF2*/(C)->_target/*4*/),a1);
  3001. }
  3002. /*FI]*/
  3003. }
  3004. /*FI]*/
  3005. return R;
  3006. }
  3007.  
  3008.  
  3009. T0* r120run_feature_for(T120* C,T0* a1,T0* a2){
  3010. T0* R=NULL;
  3011. T0* _bc=NULL;
  3012. T0* _rt=NULL;
  3013. T0* _rc=NULL;
  3014. _rt=X104result_type(a1);
  3015. /*[IF*/
  3016. if((_rt)!=((void*)(NULL))){
  3017. _rc=X52run_class(_rt);
  3018. /*[IF*/
  3019. if((_rc)!=((void*)(NULL))){
  3020. _bc=r50base_class(((T50*)_rc));
  3021. R=r51run_feature_for(((T51*)_bc),_rc,a1,(/*RF2*/(C)->_feature_name/*12*/),a2);
  3022. }
  3023. /*FI]*/
  3024. }
  3025. /*FI]*/
  3026. /*[IF*/
  3027. if((R)==((void*)(NULL))){
  3028. r66add_position((/*RF2*/((T129*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/));
  3029. /*[IRF3.6append*/{T0* b1=((T0*)ms116_39025);
  3030. r7append((T7*)(oBC66explanation),b1);
  3031. }/*]*/
  3032. r66print_as_fatal_error((T66*)(oBC13eh));
  3033. }
  3034. /*FI]*/
  3035. return R;
  3036. }
  3037.  
  3038.  
  3039. T0* r120static_result_base_class(T120* C){
  3040. T0* R=NULL;
  3041. T0* _cn=NULL;
  3042. T0* _rt=NULL;
  3043. T0* _e_feature=NULL;
  3044. T0* _bc=NULL;
  3045. _bc=X104static_result_base_class((/*RF2*/(C)->_target/*4*/));
  3046. /*[IF*/
  3047. if((_bc)!=((void*)(NULL))){
  3048. _e_feature=r51e_feature(((T51*)_bc),(/*RF2*/(C)->_feature_name/*12*/));
  3049. /*[IF*/
  3050. if((_e_feature)!=((void*)(NULL))){
  3051. _rt=X90result_type(_e_feature);
  3052. /*[IF*/
  3053. if((_rt)!=((void*)(NULL))){
  3054. _cn=X52static_base_class_name(_rt);
  3055. /*[IF*/
  3056. if((_cn)!=((void*)(NULL))){
  3057. R=r61base_class(((T61*)_cn));
  3058. }
  3059. /*FI]*/
  3060. }
  3061. /*FI]*/
  3062. }
  3063. /*FI]*/
  3064. }
  3065. /*FI]*/
  3066. return R;
  3067. }
  3068.  
  3069.  
  3070. void r120make(T120* C,T0* a1,T68 a2,T0* a3){
  3071. (/*SFN*/C->_target)=a1;
  3072. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  3073. *n=M129;
  3074. r129make(n,r120operator(),a2);
  3075. (/*SFN*/C->_feature_name)=((T0*)n);
  3076. }
  3077. {T139*n=((T139*)malloc(sizeof(*n))/*16*/);
  3078. *n=M139;
  3079. /*[IRF3.3make_1*/((((T139*)(n)))->_first_one)=(a3);
  3080. /*]*/
  3081. (/*SFN*/C->_arguments)=((T0*)n);
  3082. }
  3083. }
  3084.  
  3085.  
  3086. void r120fatal_error(T0* a1){
  3087. /*[IRF3.6append*/{T0* b1=a1;
  3088. r7append((T7*)(oBC66explanation),b1);
  3089. }/*]*/
  3090. r66print_as_fatal_error((T66*)(oBC13eh));
  3091. }
  3092.  
  3093.  
  3094. void r120assertion_check(T120* C,T3 a1){
  3095. /*[IF*/
  3096. if((a1)==(((T3)'R'))){
  3097. X334vape_check_from((/*RF2*/(C)->_run_feature/*16*/),/*(IRF4.6start_position*/(/*RF2*/(((T129*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/);
  3098. }
  3099. /*FI]*/
  3100. X104assertion_check((/*RF2*/(C)->_target/*4*/),a1);
  3101. X104assertion_check(r120arg1(C),a1);
  3102. }
  3103.  
  3104.  
  3105. T6 r120stupid_switch(T120* C,T0* a1){
  3106. T6 R=0;
  3107. R=r120call_proc_call_stupid_switch(C,a1);
  3108. /*[IF*/
  3109. if(R){
  3110. R=!(X52is_native_array(r120result_type(C)));
  3111. }
  3112. /*FI]*/
  3113. return R;
  3114. }
  3115. T0*oBC13conversion_handler=NULL;
  3116.  
  3117.  
  3118. void r36put_string(T36* C,T0* a1){
  3119. T2 _i=0;
  3120. _i=1;
  3121. while (!((_i)>((/*RF2*/(((T7*)a1))->_count/*4*/))))
  3122. {
  3123. /*[IRF3.6put_character*/{T36* C1=C;
  3124. T3 b1=/*(IRF4.6item*/((/*RF2*/(((T7*)a1))->_storage/*0*/))[(_i)-(1)]/*)*/;
  3125. putc(b1,((FILE*)(stdout)));
  3126. }/*]*/
  3127. _i=(_i)+(1);
  3128. }
  3129. }
  3130.  
  3131.  
  3132. void r36put_integer(T36* C,T2 a1){
  3133. /*[IRF3.3clear*/((((T7*)((T7*)(oBC37tmp_string))))->_count)=(0);
  3134. /*]*/
  3135. r2append_in(a1,oBC37tmp_string);
  3136. r36put_string(C,oBC37tmp_string);
  3137. }
  3138. T0*oBC37tmp_string=NULL;
  3139.  
  3140.  
  3141. void r36put_double_format(T36* C,T5 a1,T2 a2){
  3142. /*[IRF3.3clear*/((((T7*)((T7*)(oBC37tmp_string))))->_count)=(0);
  3143. /*]*/
  3144. r5append_in_format(a1,oBC37tmp_string,a2);
  3145. r36put_string(C,oBC37tmp_string);
  3146. }
  3147.  
  3148.  
  3149. void r96make(T96* C,T0* a1,T0* a2,T0* a3){
  3150. (/*SFN*/C->_clients)=a1;
  3151. (/*SFN*/C->_comment)=a2;
  3152. (/*SFN*/C->_list)=a3;
  3153. }
  3154.  
  3155.  
  3156. void r96add_into(T96* C,T0* a1){
  3157. T0* _f=NULL;
  3158. T2 _i=0;
  3159. /*[IF*/
  3160. if(((/*RF2*/(C)->_list/*8*/))!=((void*)(NULL))){
  3161. _i=0;
  3162. while (!((_i)>(/*SSWARF2*//*X92upper*/(/*RF2*/((T92*)((/*RF2*/(C)->_list/*8*/)))->_upper/*12*/))))
  3163. {
  3164. _f=X92item((/*RF2*/(C)->_list/*8*/),_i);
  3165. X90set_clients(_f,(/*RF2*/(C)->_clients/*0*/));
  3166. X90add_into(_f,a1);
  3167. _i=(_i)+(1);
  3168. }
  3169. }
  3170. /*FI]*/
  3171. }
  3172.  
  3173.  
  3174. void r118compile_to_c_old(T118* C){
  3175. X104compile_to_c_old((/*RF2*/(C)->_target/*4*/));
  3176. /*[IF*/
  3177. {/*AT*//*SSPRF3*//*X139compile_to_c_old*/r139compile_to_c_old((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  3178. }
  3179. /*FI]*/
  3180. }
  3181.  
  3182.  
  3183. T0* r118runnable_expression(T0* a1,T0* a2){
  3184. T0* R=NULL;
  3185. R=X104to_runnable(a1,a2);
  3186. /*[IF*/
  3187. if((R)==((void*)(NULL))){
  3188. {T68 se_tmp0;
  3189. r66add_position((*(se_tmp0=X104start_position(a1),&se_tmp0)));
  3190. }
  3191. r118fatal_error(((T0*)ms116_16290));
  3192. }
  3193. /*FI]*/
  3194. return R;
  3195. }
  3196.  
  3197.  
  3198. void r118run_feature_has_result(T118* C){
  3199. /*[IF*/
  3200. if((X334result_type((/*RF2*/(C)->_run_feature/*16*/)))==((void*)(NULL))){
  3201. {T68 se_tmp0;
  3202. r66add_position((*(se_tmp0=X334start_position((/*RF2*/(C)->_run_feature/*16*/)),&se_tmp0)));
  3203. }
  3204. r66add_position((/*RF2*/((T129*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/));
  3205. r118fatal_error(((T0*)ms115_53215));
  3206. }
  3207. /*FI]*/
  3208. }
  3209.  
  3210.  
  3211. void r118run_feature_match(T118* C,T0* a1){
  3212. r118run_feature_has_result(C);
  3213. X139match_with((/*RF2*/(C)->_arguments/*8*/),(/*RF2*/(C)->_run_feature/*16*/),a1);
  3214. }
  3215.  
  3216.  
  3217. T0* r118add_comment(T118* C,T0* a1){
  3218. T0* R=NULL;
  3219. /*[IF*/
  3220. if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)==(0))){
  3221. R=((T0*)(C));
  3222. }
  3223. else{
  3224. {T229*n=((T229*)malloc(sizeof(*n))/*12*/);
  3225. *n=M229;
  3226. r229make(n,(T0*)C,a1);
  3227. R=((T0*)n);
  3228. }
  3229. }
  3230. /*FI]*/
  3231. return R;
  3232. }
  3233.  
  3234.  
  3235. void r118with(T118* C,T0* a1,T0* a2,T0* a3,T0* a4,T0* a5){
  3236. (/*SFN*/C->_target)=a1;
  3237. (/*SFN*/C->_feature_name)=a2;
  3238. (/*SFN*/C->_arguments)=a3;
  3239. (/*SFN*/C->_run_feature)=a4;
  3240. r118run_feature_match(C,a5);
  3241. }
  3242.  
  3243.  
  3244. void r118mapping_c_target(T118* C,T0* a1){
  3245. T0* _actual_type=NULL;
  3246. T6 _flag=0;
  3247. _flag=r325call_invariant_start(a1);
  3248. _actual_type=X52run_type(r118result_type(C));
  3249. /*[IF*/
  3250. if(X52is_reference(_actual_type)){
  3251. /*[IF*/
  3252. if(X52is_reference(a1)){
  3253. X52mapping_cast(a1);
  3254. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3255. T3 b1=((T3)'\50');
  3256. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3257. }/*]*/
  3258. /*]*/
  3259. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T118* C1=C;
  3260. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  3261. }/*]*/
  3262. /*]*/
  3263. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3264. T3 b1=((T3)'\51');
  3265. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3266. }/*]*/
  3267. /*]*/
  3268. }
  3269. else{
  3270. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T118* C1=C;
  3271. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  3272. }/*]*/
  3273. /*]*/
  3274. }
  3275. /*FI]*/
  3276. }
  3277. else{
  3278. /*[IF*/
  3279. if(X52is_reference(a1)){
  3280. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T118* C1=C;
  3281. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  3282. }/*]*/
  3283. /*]*/
  3284. }
  3285. else{
  3286. /*[IF*/
  3287. if(X52need_c_struct(a1)){
  3288. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3289. T3 b1=((T3)'\46');
  3290. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3291. }/*]*/
  3292. /*]*/
  3293. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3294. T3 b1=((T3)'\50');
  3295. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3296. }/*]*/
  3297. /*]*/
  3298. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T118* C1=C;
  3299. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  3300. }/*]*/
  3301. /*]*/
  3302. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  3303. T3 b1=((T3)'\51');
  3304. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3305. }/*]*/
  3306. /*]*/
  3307. }
  3308. else{
  3309. /*[IRF3.4compile_to_c*//*[IRF3.6call_proc_call_c2c*/{T118* C1=C;
  3310. r325put_cpc((T325*)(oBC13cpp),(T0*)C1);
  3311. }/*]*/
  3312. /*]*/
  3313. }
  3314. /*FI]*/
  3315. }
  3316. /*FI]*/
  3317. }
  3318. /*FI]*/
  3319. /*[IF*/
  3320. if(_flag){
  3321. /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  3322. T3 b1=((T3)'\51');
  3323. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  3324. }/*]*/
  3325. /*]*/
  3326. }
  3327. /*FI]*/
  3328. }
  3329.  
  3330.  
  3331. void r118afd_check(T118* C){
  3332. T0* _running=NULL;
  3333. T0* _rc=NULL;
  3334. /*[IF*/
  3335. if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){
  3336. _rc=X52run_class(X104result_type((/*RF2*/(C)->_target/*4*/)));
  3337. _running=(/*RF2*/(((T50*)_rc))->_running/*9*/);
  3338. /*[IF*/
  3339. if((_running)==((void*)(NULL))){
  3340. }
  3341.  else if((r53count(((T53*)_running)))>(1)){
  3342. r351update((/*RF2*/(C)->_target/*4*/),(/*RF2*/(C)->_run_feature/*16*/));
  3343. }
  3344. /*FI]*/
  3345. }
  3346. /*FI]*/
  3347. X104afd_check((/*RF2*/(C)->_target/*4*/));
  3348. /*[IF*/
  3349. {/*AT*//*SSPRF3*//*X139afd_check*/r139afd_check((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  3350. }
  3351. /*FI]*/
  3352. }
  3353.  
  3354.  
  3355. void r118c_declare_for_old(T118* C){
  3356. X104c_declare_for_old((/*RF2*/(C)->_target/*4*/));
  3357. /*[IF*/
  3358. {/*AT*//*SSPRF3*//*X139c_declare_for_old*/r139c_declare_for_old((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  3359. }
  3360. /*FI]*/
  3361. }
  3362.  
  3363.  
  3364. void r118collect_c_tmp(T118* C){
  3365. /*[IF*/
  3366. if(((/*RF2*/(C)->_run_feature/*16*/))!=((void*)(NULL))){
  3367. X334collect_c_tmp((/*RF2*/(C)->_run_feature/*16*/));
  3368. }
  3369. /*FI]*/
  3370. X104collect_c_tmp((/*RF2*/(C)->_target/*4*/));
  3371. /*[IF*/
  3372. if(((/*RF2*/(C)->_arguments/*8*/))!=((void*)(NULL))){
  3373. /*SSPRF3*//*X139collect_c_tmp*/r139collect_c_tmp((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  3374. }
  3375. /*FI]*/
  3376. }
  3377.  
  3378.  
  3379. T0* r118operator(void){
  3380. T0* R=NULL;
  3381. R=((T0*)ms15_450);
  3382. return R;
  3383. }
  3384.  
  3385.  
  3386. T6 r118use_current(T118* C){
  3387. T6 R=0;
  3388. /*[IF*/
  3389. {/*AT*/R=/*SSFRF4*//*X139use_current*/r139use_current((T139*)((/*RF2*/(C)->_arguments/*8*/)));
  3390. }
  3391. /*FI]*/
  3392. /*[IF*/
  3393. if(R){
  3394. }
  3395.  else if(X104is_current((/*RF2*/(C)->_target/*4*/))){
  3396. R=X334use_current((/*RF2*/(C)->_run_feature/*16*/));
  3397. }
  3398. else{
  3399. R=X104use_current((/*RF2*/(C)->_target/*4*/));
  3400. }
  3401. /*FI]*/
  3402. return R;
  3403. }
  3404.  
  3405.  
  3406. T0* r118runnable_args(T0* a1,T0* a2){
  3407. T0* R=NULL;
  3408. R=X139to_runnable(a1,a2);
  3409. /*[IF*/
  3410. if((R)==((void*)(NULL))){
  3411. {T68 se_tmp0;
  3412. r66add_position((*(se_tmp0=X139start_position(a1),&se_tmp0)));
  3413. }
  3414. r118fatal_error(((T0*)ms14_12870));
  3415. }
  3416. /*FI]*/
  3417. return R;
  3418. }
  3419.  
  3420.  
  3421. T0* r118to_runnable(T118* C,T0* a1){
  3422. T0* R=NULL;
  3423. T0* _target_type=NULL;
  3424. T0* _argument_type=NULL;
  3425. T0* _rf=NULL;
  3426. T0* _a=NULL;
  3427. T0* _t=NULL;
  3428. _t=r118runnable_expression((/*RF2*/(C)->_target/*4*/),a1);
  3429. _a=r118runnable_args((/*RF2*/(C)->_arguments/*8*/),a1);
  3430. _target_type=X104result_type(_t);
  3431. _argument_type=X104result_type(r118arg1(C));
  3432. /*[IF*/
  3433. if(X52is_real(_argument_type)){
  3434. /*[IF*/
  3435. if(X52is_integer(_target_type)){
  3436. _t=r341implicit_cast((T341*)(oBC13conversion_handler),_t,_argument_type);
  3437. }
  3438. /*FI]*/
  3439. }
  3440.  else if(X52is_double(_argument_type)){
  3441. /*[IF*/
  3442. if((X52is_integer(_target_type))||(X52is_real(_target_type))){
  3443. _t=r341implicit_cast((T341*)(oBC13conversion_handler),_t,_argument_type);
  3444. }
  3445. /*FI]*/
  3446. }
  3447. /*FI]*/
  3448. _rf=r118run_feature_for(C,_t,a1);
  3449. /*[IF*/
  3450. if(((/*RF2*/(C)->_run_feature/*16*/))==((void*)(NULL))){
  3451. (/*SFN*/C->_target)=_t;
  3452. (/*SFN*/C->_arguments)=_a;
  3453. (/*SFN*/C->_run_feature)=_rf;
  3454. r118run_feature_match(C,a1);
  3455. R=((T0*)(C));
  3456. }
  3457.  else if(((_t)==((void*)((/*RF2*/(C)->_target/*4*/))))&&((_a)==((void*)((/*RF2*/(C)->_arguments/*8*/))))){
  3458. R=((T0*)(C));
  3459. }
  3460. else{
  3461. {T118*n=((T118*)malloc(sizeof(*n))/*24*/);
  3462. *n=M118;
  3463. r118with(n,_t,(/*RF2*/(C)->_feature_name/*12*/),_a,_rf,a1);
  3464. R=((T0*)n);
  3465. }
  3466. }
  3467. /*FI]*/
  3468. return R;
  3469. }
  3470.  
  3471.  
  3472. T2 r118to_integer(T118* C){
  3473. T2 R=0;
  3474. r118error(/*(IRF4.6start_position*/(/*RF2*/(((T129*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/,((T0*)ms14_45441));
  3475. return R;
  3476. }
  3477.  
  3478.  
  3479. T6 r118is_static(T118* C){
  3480. T6 R=0;
  3481. /*[IF*/
  3482. if(X52is_boolean(X104result_type((/*RF2*/(C)->_target/*4*/)))){
  3483. /*[IF*/
  3484. if((X104is_static((/*RF2*/(C)->_target/*4*/)))&&(X104is_static(r118arg1(C)))){
  3485. R=1;
  3486. (/*SFN*/C->_static_value_mem)=(X104static_value((/*RF2*/(C)->_target/*4*/)))+(X104static_value(r118arg1(C)));
  3487. /*[IF*/
  3488. if(((/*RF2*/(C)->_static_value_mem/*20*/))==(2)){
  3489. (/*SFN*/C->_static_value_mem)=1;
  3490. }
  3491. /*FI]*/
  3492. }
  3493. /*FI]*/
  3494. }
  3495. /*FI]*/
  3496. return R;
  3497. }
  3498.  
  3499.  
  3500. void r118finalize(T118* C){
  3501. T0* _rf=NULL;
  3502. T0* _rc=NULL;
  3503. _rf=(/*RF2*/(C)->_run_feature/*16*/);
  3504. _rc=X52run_class(/*SSWARF2*//*X334current_type*/(/*RF2*/(((T368*)_rf))->_current_type/*8*/));
  3505. (/*SFN*/C->_run_feature)=r50dynamic((T50*)(/*(IRF4.6first*/((/*RF2*/((T53*)((/*RF2*/(((T50*)_rc))->_running/*9*/)))->_storage/*0*/))[0]/*)*/),_rf);
  3506. }
  3507.  
  3508.  
  3509. void r118error(T68 a1,T0* a2){
  3510. r66add_position(a1);
  3511. /*[IRF3.6append*/{T0* b1=a2;
  3512. r7append((T7*)(oBC66explanation),b1);
  3513. }/*]*/
  3514. r66print_as_error((T66*)(oBC13eh));
  3515. }
  3516.  
  3517.  
  3518. T0* r118result_type(T118* C){
  3519. T0* R=NULL;
  3520. T0* _tla=NULL;
  3521. R=X334result_type((/*RF2*/(C)->_run_feature/*16*/));
  3522. /*[IF*/
  3523. if(X52is_like_current(R)){
  3524. R=/*SSWARF2*//*X334current_type*/(/*RF2*/((T368*)((/*RF2*/(C)->_run_feature/*16*/)))->_current_type/*8*/);
  3525. }
  3526. else{
  3527. _tla=R;
  3528. if(NULL!=(_tla)){
  3529. switch(((T0*)_tla)->id){
  3530. case 257:
  3531. break;
  3532. default:
  3533. _tla=NULL;
  3534. }
  3535. }/*[IF*/
  3536. if((_tla)!=((void*)(NULL))){
  3537. R=X52run_type(X104result_type(r118arg1(C)));
  3538. }
  3539. /*FI]*/
  3540. }
  3541. /*FI]*/
  3542. return R;
  3543. }
  3544.  
  3545.  
  3546. T0* r118arg1(T118* C){
  3547. T0* R=NULL;
  3548. R=/*SSFRF4*//*X139first*//*(IRF4.3first*/(/*RF2*/((T139*)((/*RF2*/(C)->_arguments/*8*/)))->_first_one/*4*/)/*)*/;
  3549. return R;
  3550. }
  3551.  
  3552.  
  3553. T6 r118call_proc_call_stupid_switch(T118* C,T0* a1){
  3554. T6 R=0;
  3555. /*[IF*/
  3556. if(((/*RF2*/(C)->_arguments/*8*/))==((void*)(NULL))){
  3557. R=1;
  3558. }
  3559. else{
  3560. R=/*SSFRF4*//*X139stupid_switch*/r139stupid_switch((T139*)((/*RF2*/(C)->_arguments/*8*/)),a1);
  3561. }
  3562. /*FI]*/
  3563. /*[IF*/
  3564. if(R){
  3565. /*[IF*/
  3566. if(X104is_current((/*RF2*/(C)->_target/*4*/))){
  3567. /*[IF*/
  3568. if(r49same_base_feature((/*RF2*/(C)->_run_feature/*16*/),a1)){
  3569. R=(X334stupid_switch((/*RF2*/(C)->_run_feature/*16*/),a1))!=((void*)(NULL));
  3570. }
  3571. else{
  3572. R=0;
  3573. }
  3574. /*FI]*/
  3575. }
  3576. else{
  3577. R=X104stupid_switch((/*RF2*/(C)->_target/*4*/),a1);
  3578. }
  3579. /*FI]*/
  3580. }
  3581. /*FI]*/
  3582. return R;
  3583. }
  3584.  
  3585.  
  3586. T0* r118run_feature_for(T118* C,T0* a1,T0* a2){
  3587. T0* R=NULL;
  3588. T0* _bc=NULL;
  3589. T0* _rt=NULL;
  3590. T0* _rc=NULL;
  3591. _rt=X104result_type(a1);
  3592. /*[IF*/
  3593. if((_rt)!=((void*)(NULL))){
  3594. _rc=X52run_class(_rt);
  3595. /*[IF*/
  3596. if((_rc)!=((void*)(NULL))){
  3597. _bc=r50base_class(((T50*)_rc));
  3598. R=r51run_feature_for(((T51*)_bc),_rc,a1,(/*RF2*/(C)->_feature_name/*12*/),a2);
  3599. }
  3600. /*FI]*/
  3601. }
  3602. /*FI]*/
  3603. /*[IF*/
  3604. if((R)==((void*)(NULL))){
  3605. r66add_position((/*RF2*/((T129*)((/*RF2*/(C)->_feature_name/*12*/)))->_start_position/*4*/));
  3606. /*[IRF3.6append*/{T0* b1=((T0*)ms116_39025);
  3607. r7append((T7*)(oBC66explanation),b1);
  3608. }/*]*/
  3609. r66print_as_fatal_error((T66*)(oBC13eh));
  3610. }
  3611. /*FI]*/
  3612. return R;
  3613. }
  3614.  
  3615.  
  3616. T0* r118static_result_base_class(T118* C){
  3617. T0* R=NULL;
  3618. T0* _cn=NULL;
  3619. T0* _rt=NULL;
  3620. T0* _e_feature=NULL;
  3621. T0* _bc=NULL;
  3622. _bc=X104static_result_base_class((/*RF2*/(C)->_target/*4*/));
  3623. /*[IF*/
  3624. if((_bc)!=((void*)(NULL))){
  3625. _e_feature=r51e_feature(((T51*)_bc),(/*RF2*/(C)->_feature_name/*12*/));
  3626. /*[IF*/
  3627. if((_e_feature)!=((void*)(NULL))){
  3628. _rt=X90result_type(_e_feature);
  3629. /*[IF*/
  3630. if((_rt)!=((void*)(NULL))){
  3631. _cn=X52static_base_class_name(_rt);
  3632. /*[IF*/
  3633. if((_cn)!=((void*)(NULL))){
  3634. R=r61base_class(((T61*)_cn));
  3635. }
  3636. /*FI]*/
  3637. }
  3638. /*FI]*/
  3639. }
  3640. /*FI]*/
  3641. }
  3642. /*FI]*/
  3643. return R;
  3644. }
  3645.  
  3646.  
  3647. void r118make(T118* C,T0* a1,T68 a2,T0* a3){
  3648. (/*SFN*/C->_target)=a1;
  3649. {T129*n=((T129*)malloc(sizeof(*n))/*20*/);
  3650. *n=M129;
  3651. r129make(n,r118operator(),a2);
  3652. (/*SFN*/C->_feature_name)=((T0*)n);
  3653. }
  3654. {T139*n=((T139*)malloc(sizeof(*n))/*16*/);
  3655. *n=M139;
  3656. /*[IRF3.3make_1*/((((T139*)(n)))->_first_one)=(a3);
  3657. /*]*/
  3658. (/*SFN*/C->_arguments)=((T0*)n);
  3659. }
  3660. }
  3661.  
  3662.  
  3663. void r118fatal_error(T0* a1){
  3664. /*[IRF3.6append*/{T0* b1=a1;
  3665. r7append((T7*)(oBC66explanation),b1);
  3666. }/*]*/
  3667. r66print_as_fatal_error((T66*)(oBC13eh));
  3668. }
  3669.  
  3670.  
  3671. void r118assertion_check(T118* C,T3 a1){
  3672. /*[IF*/
  3673. if((a1)==(((T3)'R'))){
  3674. X334vape_check_from((/*RF2*/(C)->_run_feature/*16*/),/*(IRF4.6start_position*/(/*RF2*/(((T129*)((/*RF2*/(C)->_feature_name/*12*/))))->_start_position/*4*/)/*)*/);
  3675. }
  3676. /*FI]*/
  3677. X104assertion_check((/*RF2*/(C)->_target/*4*/),a1);
  3678. X104assertion_check(r118arg1(C),a1);
  3679. }
  3680.  
  3681.  
  3682. T6 r118stupid_switch(T118* C,T0* a1){
  3683. T6 R=0;
  3684. R=r118call_proc_call_stupid_switch(C,a1);
  3685. /*[IF*/
  3686. if(R){
  3687. R=!(X52is_native_array(r118result_type(C)));
  3688. }
  3689. /*FI]*/
  3690. return R;
  3691. }
  3692.  
  3693.  
  3694. void r76load_file(T76* C,T0* a1){
  3695. T2 _i=0;
  3696. r40connect_to((T40*)(oBC13tmp_file_read),a1);
  3697. /*[IF*/
  3698. if(/*(IRF4.7is_connected*/((/*RF2*/((T40*)(oBC13tmp_file_read))->_path/*1*/))!=(NULL)/*)*/){
  3699. (/*SFN*/C->_path)=((/*UT*/(void)((T21*)(r76string_aliaser()))),r21item(a1));
  3700. /*[IF*/
  3701. if((r76get_line(0))!=((void*)(NULL))){
  3702. }
  3703. /*FI]*/
  3704. _i=1;
  3705. r40read_line_in((T40*)(oBC13tmp_file_read),r76get_line(_i));
  3706. while (!(r40end_of_input((T40*)(oBC13tmp_file_read))))
  3707. {
  3708. _i=(_i)+(1);
  3709. r40read_line_in((T40*)(oBC13tmp_file_read),r76get_line(_i));
  3710. }
  3711. /*[IF*/
  3712. if(/*(IRF4.7is_empty*/((/*RF2*/((T7*)(/*(IRF4.6item*/((/*RF2*/((T31*)(oBC76text))->_storage/*4*/))[_i]/*)*/))->_count/*4*/))==(0)/*)*/){
  3713. (/*SFN*/C->_count)=(_i)-(1);
  3714. }
  3715. else{
  3716. (/*SFN*/C->_count)=_i;
  3717. }
  3718. /*FI]*/
  3719. r40disconnect((T40*)(oBC13tmp_file_read));
  3720. /*[IF*/
  3721. if(((/*RF2*/(C)->_count/*4*/))<=(0)){
  3722. /*[IRF3.6append*/{T0* b1=((T0*)ms76_3720);
  3723. r7append((T7*)(oBC66explanation),b1);
  3724. }/*]*/
  3725. /*[IRF3.6append*/{T0* b1=(/*RF2*/(C)->_path/*0*/);
  3726. r7append((T7*)(oBC66explanation),b1);
  3727. }/*]*/
  3728. /*[IRF3.6append*/{T0* b1=((T0*)ms76_26060);
  3729. r7append((T7*)(oBC66explanation),b1);
  3730. }/*]*/
  3731. r66print_as_fatal_error((T66*)(oBC13eh));
  3732. }
  3733. /*FI]*/
  3734. }
  3735. else{
  3736. (/*SFN*/C->_path)=NULL;
  3737. }
  3738. /*FI]*/
  3739. }
  3740. T0*oBC13tmp_file_read=NULL;
  3741.  
  3742.  
  3743. T0* r76string_aliaser(void){
  3744. if(fBC13string_aliaser==0){fBC13string_aliaser=1;{
  3745. {T21*n=((T21*)malloc(1));
  3746. oBC13string_aliaser=((T0*)n);
  3747. /*[IRF3.2make*//*[IRF3.6add1*/{T0* b1=((T0*)ms15_696);
  3748. r23put((T23*)(oBC21memory),b1,b1);
  3749. }/*]*/
  3750. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1915);
  3751. r23put((T23*)(oBC21memory),b1,b1);
  3752. }/*]*/
  3753. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_669);
  3754. r23put((T23*)(oBC21memory),b1,b1);
  3755. }/*]*/
  3756. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1980);
  3757. r23put((T23*)(oBC21memory),b1,b1);
  3758. }/*]*/
  3759. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9234);
  3760. r23put((T23*)(oBC21memory),b1,b1);
  3761. }/*]*/
  3762. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6405);
  3763. r23put((T23*)(oBC21memory),b1,b1);
  3764. }/*]*/
  3765. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12529);
  3766. r23put((T23*)(oBC21memory),b1,b1);
  3767. }/*]*/
  3768. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9801);
  3769. r23put((T23*)(oBC21memory),b1,b1);
  3770. }/*]*/
  3771. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16393);
  3772. r23put((T23*)(oBC21memory),b1,b1);
  3773. }/*]*/
  3774. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12550);
  3775. r23put((T23*)(oBC21memory),b1,b1);
  3776. }/*]*/
  3777. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4728);
  3778. r23put((T23*)(oBC21memory),b1,b1);
  3779. }/*]*/
  3780. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10740);
  3781. r23put((T23*)(oBC21memory),b1,b1);
  3782. }/*]*/
  3783. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12030);
  3784. r23put((T23*)(oBC21memory),b1,b1);
  3785. }/*]*/
  3786. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14817);
  3787. r23put((T23*)(oBC21memory),b1,b1);
  3788. }/*]*/
  3789. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6307);
  3790. r23put((T23*)(oBC21memory),b1,b1);
  3791. }/*]*/
  3792. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6643);
  3793. r23put((T23*)(oBC21memory),b1,b1);
  3794. }/*]*/
  3795. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12595);
  3796. r23put((T23*)(oBC21memory),b1,b1);
  3797. }/*]*/
  3798. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_5508);
  3799. r23put((T23*)(oBC21memory),b1,b1);
  3800. }/*]*/
  3801. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17448);
  3802. r23put((T23*)(oBC21memory),b1,b1);
  3803. }/*]*/
  3804. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1216);
  3805. r23put((T23*)(oBC21memory),b1,b1);
  3806. }/*]*/
  3807. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7928);
  3808. r23put((T23*)(oBC21memory),b1,b1);
  3809. }/*]*/
  3810. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6776);
  3811. r23put((T23*)(oBC21memory),b1,b1);
  3812. }/*]*/
  3813. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12804);
  3814. r23put((T23*)(oBC21memory),b1,b1);
  3815. }/*]*/
  3816. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1168);
  3817. r23put((T23*)(oBC21memory),b1,b1);
  3818. }/*]*/
  3819. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7576);
  3820. r23put((T23*)(oBC21memory),b1,b1);
  3821. }/*]*/
  3822. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4956);
  3823. r23put((T23*)(oBC21memory),b1,b1);
  3824. }/*]*/
  3825. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16692);
  3826. r23put((T23*)(oBC21memory),b1,b1);
  3827. }/*]*/
  3828. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19124);
  3829. r23put((T23*)(oBC21memory),b1,b1);
  3830. }/*]*/
  3831. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_921);
  3832. r23put((T23*)(oBC21memory),b1,b1);
  3833. }/*]*/
  3834. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10680);
  3835. r23put((T23*)(oBC21memory),b1,b1);
  3836. }/*]*/
  3837. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_64);
  3838. r23put((T23*)(oBC21memory),b1,b1);
  3839. }/*]*/
  3840. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_368);
  3841. r23put((T23*)(oBC21memory),b1,b1);
  3842. }/*]*/
  3843. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_61);
  3844. r23put((T23*)(oBC21memory),b1,b1);
  3845. }/*]*/
  3846. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_246);
  3847. r23put((T23*)(oBC21memory),b1,b1);
  3848. }/*]*/
  3849. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_62);
  3850. r23put((T23*)(oBC21memory),b1,b1);
  3851. }/*]*/
  3852. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9408);
  3853. r23put((T23*)(oBC21memory),b1,b1);
  3854. }/*]*/
  3855. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_242);
  3856. r23put((T23*)(oBC21memory),b1,b1);
  3857. }/*]*/
  3858. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60);
  3859. r23put((T23*)(oBC21memory),b1,b1);
  3860. }/*]*/
  3861. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_45);
  3862. r23put((T23*)(oBC21memory),b1,b1);
  3863. }/*]*/
  3864. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_42);
  3865. r23put((T23*)(oBC21memory),b1,b1);
  3866. }/*]*/
  3867. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_216);
  3868. r23put((T23*)(oBC21memory),b1,b1);
  3869. }/*]*/
  3870. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1011);
  3871. r23put((T23*)(oBC21memory),b1,b1);
  3872. }/*]*/
  3873. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_450);
  3874. r23put((T23*)(oBC21memory),b1,b1);
  3875. }/*]*/
  3876. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8211);
  3877. r23put((T23*)(oBC21memory),b1,b1);
  3878. }/*]*/
  3879. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_43);
  3880. r23put((T23*)(oBC21memory),b1,b1);
  3881. }/*]*/
  3882. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_94);
  3883. r23put((T23*)(oBC21memory),b1,b1);
  3884. }/*]*/
  3885. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_552);
  3886. r23put((T23*)(oBC21memory),b1,b1);
  3887. }/*]*/
  3888. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_564);
  3889. r23put((T23*)(oBC21memory),b1,b1);
  3890. }/*]*/
  3891. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_47);
  3892. r23put((T23*)(oBC21memory),b1,b1);
  3893. }/*]*/
  3894. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_188);
  3895. r23put((T23*)(oBC21memory),b1,b1);
  3896. }/*]*/
  3897. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_35);
  3898. r23put((T23*)(oBC21memory),b1,b1);
  3899. }/*]*/
  3900. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035a);
  3901. r23put((T23*)(oBC21memory),b1,b1);
  3902. }/*]*/
  3903. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11424);
  3904. r23put((T23*)(oBC21memory),b1,b1);
  3905. }/*]*/
  3906. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2600);
  3907. r23put((T23*)(oBC21memory),b1,b1);
  3908. }/*]*/
  3909. r21add2(((T0*)ms15_22524));
  3910. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6702);
  3911. r23put((T23*)(oBC21memory),b1,b1);
  3912. }/*]*/
  3913. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11776);
  3914. r23put((T23*)(oBC21memory),b1,b1);
  3915. }/*]*/
  3916. r21add2(((T0*)ms15_29246));
  3917. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13419);
  3918. r23put((T23*)(oBC21memory),b1,b1);
  3919. }/*]*/
  3920. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765a);
  3921. r23put((T23*)(oBC21memory),b1,b1);
  3922. }/*]*/
  3923. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1644);
  3924. r23put((T23*)(oBC21memory),b1,b1);
  3925. }/*]*/
  3926. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19294);
  3927. r23put((T23*)(oBC21memory),b1,b1);
  3928. }/*]*/
  3929. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1772);
  3930. r23put((T23*)(oBC21memory),b1,b1);
  3931. }/*]*/
  3932. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15070);
  3933. r23put((T23*)(oBC21memory),b1,b1);
  3934. }/*]*/
  3935. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15570);
  3936. r23put((T23*)(oBC21memory),b1,b1);
  3937. }/*]*/
  3938. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27034);
  3939. r23put((T23*)(oBC21memory),b1,b1);
  3940. }/*]*/
  3941. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15190);
  3942. r23put((T23*)(oBC21memory),b1,b1);
  3943. }/*]*/
  3944. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15890);
  3945. r23put((T23*)(oBC21memory),b1,b1);
  3946. }/*]*/
  3947. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19151);
  3948. r23put((T23*)(oBC21memory),b1,b1);
  3949. }/*]*/
  3950. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13491);
  3951. r23put((T23*)(oBC21memory),b1,b1);
  3952. }/*]*/
  3953. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_28490);
  3954. r23put((T23*)(oBC21memory),b1,b1);
  3955. }/*]*/
  3956. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8750);
  3957. r23put((T23*)(oBC21memory),b1,b1);
  3958. }/*]*/
  3959. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19437);
  3960. r23put((T23*)(oBC21memory),b1,b1);
  3961. }/*]*/
  3962. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824a);
  3963. r23put((T23*)(oBC21memory),b1,b1);
  3964. }/*]*/
  3965. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_23829);
  3966. r23put((T23*)(oBC21memory),b1,b1);
  3967. }/*]*/
  3968. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27272);
  3969. r23put((T23*)(oBC21memory),b1,b1);
  3970. }/*]*/
  3971. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10528);
  3972. r23put((T23*)(oBC21memory),b1,b1);
  3973. }/*]*/
  3974. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13707);
  3975. r23put((T23*)(oBC21memory),b1,b1);
  3976. }/*]*/
  3977. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6846);
  3978. r23put((T23*)(oBC21memory),b1,b1);
  3979. }/*]*/
  3980. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1664);
  3981. r23put((T23*)(oBC21memory),b1,b1);
  3982. }/*]*/
  3983. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2760);
  3984. r23put((T23*)(oBC21memory),b1,b1);
  3985. }/*]*/
  3986. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730a);
  3987. r23put((T23*)(oBC21memory),b1,b1);
  3988. }/*]*/
  3989. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22248);
  3990. r23put((T23*)(oBC21memory),b1,b1);
  3991. }/*]*/
  3992. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22788);
  3993. r23put((T23*)(oBC21memory),b1,b1);
  3994. }/*]*/
  3995. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_30660);
  3996. r23put((T23*)(oBC21memory),b1,b1);
  3997. }/*]*/
  3998. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13995);
  3999. r23put((T23*)(oBC21memory),b1,b1);
  4000. }/*]*/
  4001. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_432);
  4002. r23put((T23*)(oBC21memory),b1,b1);
  4003. }/*]*/
  4004. r21add2(((T0*)ms15_22596));
  4005. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60104);
  4006. r23put((T23*)(oBC21memory),b1,b1);
  4007. }/*]*/
  4008. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_24960);
  4009. r23put((T23*)(oBC21memory),b1,b1);
  4010. }/*]*/
  4011. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34432);
  4012. r23put((T23*)(oBC21memory),b1,b1);
  4013. }/*]*/
  4014. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11144);
  4015. r23put((T23*)(oBC21memory),b1,b1);
  4016. }/*]*/
  4017. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_18964);
  4018. r23put((T23*)(oBC21memory),b1,b1);
  4019. }/*]*/
  4020. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1724);
  4021. r23put((T23*)(oBC21memory),b1,b1);
  4022. }/*]*/
  4023. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1744);
  4024. r23put((T23*)(oBC21memory),b1,b1);
  4025. }/*]*/
  4026. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765);
  4027. r23put((T23*)(oBC21memory),b1,b1);
  4028. }/*]*/
  4029. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6762);
  4030. r23put((T23*)(oBC21memory),b1,b1);
  4031. }/*]*/
  4032. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1656);
  4033. r23put((T23*)(oBC21memory),b1,b1);
  4034. }/*]*/
  4035. r21add2(((T0*)ms15_60016));
  4036. r21add2(((T0*)ms15_26880));
  4037. r21add2(((T0*)ms15_33240));
  4038. r21add2(((T0*)ms15_21624));
  4039. r21add2(((T0*)ms15_60060));
  4040. r21add2(((T0*)ms15_26908));
  4041. r21add2(((T0*)ms15_33270));
  4042. r21add2(((T0*)ms15_21648));
  4043. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17886);
  4044. r23put((T23*)(oBC21memory),b1,b1);
  4045. }/*]*/
  4046. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824);
  4047. r23put((T23*)(oBC21memory),b1,b1);
  4048. }/*]*/
  4049. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21192);
  4050. r23put((T23*)(oBC21memory),b1,b1);
  4051. }/*]*/
  4052. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2785);
  4053. r23put((T23*)(oBC21memory),b1,b1);
  4054. }/*]*/
  4055. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11496);
  4056. r23put((T23*)(oBC21memory),b1,b1);
  4057. }/*]*/
  4058. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_53940);
  4059. r23put((T23*)(oBC21memory),b1,b1);
  4060. }/*]*/
  4061. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035);
  4062. r23put((T23*)(oBC21memory),b1,b1);
  4063. }/*]*/
  4064. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2440);
  4065. r23put((T23*)(oBC21memory),b1,b1);
  4066. }/*]*/
  4067. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2445);
  4068. r23put((T23*)(oBC21memory),b1,b1);
  4069. }/*]*/
  4070. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_32730);
  4071. r23put((T23*)(oBC21memory),b1,b1);
  4072. }/*]*/
  4073. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12744);
  4074. r23put((T23*)(oBC21memory),b1,b1);
  4075. }/*]*/
  4076. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13662);
  4077. r23put((T23*)(oBC21memory),b1,b1);
  4078. }/*]*/
  4079. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8547);
  4080. r23put((T23*)(oBC21memory),b1,b1);
  4081. }/*]*/
  4082. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8505);
  4083. r23put((T23*)(oBC21memory),b1,b1);
  4084. }/*]*/
  4085. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9436);
  4086. r23put((T23*)(oBC21memory),b1,b1);
  4087. }/*]*/
  4088. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14193);
  4089. r23put((T23*)(oBC21memory),b1,b1);
  4090. }/*]*/
  4091. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915a);
  4092. r23put((T23*)(oBC21memory),b1,b1);
  4093. }/*]*/
  4094. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915);
  4095. r23put((T23*)(oBC21memory),b1,b1);
  4096. }/*]*/
  4097. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34528);
  4098. r23put((T23*)(oBC21memory),b1,b1);
  4099. }/*]*/
  4100. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13752);
  4101. r23put((T23*)(oBC21memory),b1,b1);
  4102. }/*]*/
  4103. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11336);
  4104. r23put((T23*)(oBC21memory),b1,b1);
  4105. }/*]*/
  4106. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_26156);
  4107. r23put((T23*)(oBC21memory),b1,b1);
  4108. }/*]*/
  4109. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11376);
  4110. r23put((T23*)(oBC21memory),b1,b1);
  4111. }/*]*/
  4112. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27580);
  4113. r23put((T23*)(oBC21memory),b1,b1);
  4114. }/*]*/
  4115. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_33990);
  4116. r23put((T23*)(oBC21memory),b1,b1);
  4117. }/*]*/
  4118. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27443);
  4119. r23put((T23*)(oBC21memory),b1,b1);
  4120. }/*]*/
  4121. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_40358);
  4122. r23put((T23*)(oBC21memory),b1,b1);
  4123. }/*]*/
  4124. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_25584);
  4125. r23put((T23*)(oBC21memory),b1,b1);
  4126. }/*]*/
  4127. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7380);
  4128. r23put((T23*)(oBC21memory),b1,b1);
  4129. }/*]*/
  4130. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730);
  4131. r23put((T23*)(oBC21memory),b1,b1);
  4132. }/*]*/
  4133. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7530);
  4134. r23put((T23*)(oBC21memory),b1,b1);
  4135. }/*]*/
  4136. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13977);
  4137. r23put((T23*)(oBC21memory),b1,b1);
  4138. }/*]*/
  4139. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14175);
  4140. r23put((T23*)(oBC21memory),b1,b1);
  4141. }/*]*/
  4142. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16970);
  4143. r23put((T23*)(oBC21memory),b1,b1);
  4144. }/*]*/
  4145. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8820);
  4146. r23put((T23*)(oBC21memory),b1,b1);
  4147. }/*]*/
  4148. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7326);
  4149. r23put((T23*)(oBC21memory),b1,b1);
  4150. }/*]*/
  4151. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22716);
  4152. r23put((T23*)(oBC21memory),b1,b1);
  4153. }/*]*/
  4154. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12978);
  4155. r23put((T23*)(oBC21memory),b1,b1);
  4156. }/*]*/
  4157. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16770);
  4158. r23put((T23*)(oBC21memory),b1,b1);
  4159. }/*]*/
  4160. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16850);
  4161. r23put((T23*)(oBC21memory),b1,b1);
  4162. }/*]*/
  4163. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9051);
  4164. r23put((T23*)(oBC21memory),b1,b1);
  4165. }/*]*/
  4166. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21300);
  4167. r23put((T23*)(oBC21memory),b1,b1);
  4168. }/*]*/
  4169. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_56720);
  4170. r23put((T23*)(oBC21memory),b1,b1);
  4171. }/*]*/
  4172. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1800);
  4173. r23put((T23*)(oBC21memory),b1,b1);
  4174. }/*]*/
  4175. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2780);
  4176. r23put((T23*)(oBC21memory),b1,b1);
  4177. }/*]*/
  4178. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27456);
  4179. r23put((T23*)(oBC21memory),b1,b1);
  4180. }/*]*/
  4181. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15650);
  4182. r23put((T23*)(oBC21memory),b1,b1);
  4183. }/*]*/
  4184. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9275);
  4185. r23put((T23*)(oBC21memory),b1,b1);
  4186. }/*]*/
  4187. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_58075);
  4188. r23put((T23*)(oBC21memory),b1,b1);
  4189. }/*]*/
  4190. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22140);
  4191. r23put((T23*)(oBC21memory),b1,b1);
  4192. }/*]*/
  4193. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13833);
  4194. r23put((T23*)(oBC21memory),b1,b1);
  4195. }/*]*/
  4196. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7314);
  4197. r23put((T23*)(oBC21memory),b1,b1);
  4198. }/*]*/
  4199. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1608);
  4200. r23put((T23*)(oBC21memory),b1,b1);
  4201. }/*]*/
  4202. /*]*/
  4203. }
  4204. }}
  4205. return oBC13string_aliaser;
  4206. }
  4207. T0*oBC76text=NULL;
  4208.  
  4209.  
  4210. T0* r76get_line(T2 a1){
  4211. T0* R=NULL;
  4212. /*[IF*/
  4213. if((a1)<=((/*RF2*/((T31*)(oBC76text))->_upper/*12*/))){
  4214. R=/*(IRF4.6item*/((/*RF2*/((T31*)(oBC76text))->_storage/*4*/))[a1]/*)*/;
  4215. /*[IRF3.3clear*/((((T7*)(((T7*)R))))->_count)=(0);
  4216. /*]*/
  4217. }
  4218. else{
  4219. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4220. *n=M7;
  4221. r7make(n,80);
  4222. R=((T0*)n);
  4223. }
  4224. r31add_last((T31*)(oBC76text),R);
  4225. }
  4226. /*FI]*/
  4227. return R;
  4228. }
  4229.  
  4230.  
  4231. T0* r76item(T2 a1){
  4232. T0* R=NULL;
  4233. R=/*(IRF4.6item*/((/*RF2*/((T31*)(oBC76text))->_storage/*4*/))[a1]/*)*/;
  4234. return R;
  4235. }
  4236.  
  4237.  
  4238. void r394refer_to(T394* C,T2 a1,T0* a2){
  4239. (/*SFN*/C->_enclosing)=a2;
  4240. {T7*n=((T7*)malloc(sizeof(*n))/*12*/);
  4241. *n=M7;
  4242. r7make(n,(8)+((/*RF2*/((T7*)(X82to_key((/*RF2*/(C)->_enclosing/*8*/))))->_count/*4*/)));
  4243. (/*SFN*/C->_to_key)=((T0*)n);
  4244. }
  4245. r7extend((T7*)((/*RF2*/(C)->_to_key/*4*/)),((T3)'\137'));
  4246. r2append_in(a1,(/*RF2*/(C)->_to_key/*4*/));
  4247. r7extend((T7*)((/*RF2*/(C)->_to_key/*4*/)),((T3)'P'));
  4248. r7append((T7*)((/*RF2*/(C)->_to_key/*4*/)),X82to_key((/*RF2*/(C)->_enclosing/*8*/)));
  4249. (/*SFN*/C->_to_key)=((/*UT*/(void)((T21*)(r394string_aliaser()))),r21item((/*RF2*/(C)->_to_key/*4*/)));
  4250. }
  4251.  
  4252.  
  4253. void r394undefine_in(T394* C,T0* a1){
  4254. /*[IF*/
  4255. if(r394is_frozen(C)){
  4256. {T68 se_tmp0;
  4257. r394error((*(se_tmp0=r394start_position(C),&se_tmp0)),((T0*)ms82_116840));
  4258. }
  4259. r51fatal_undefine(((T51*)a1),(T0*)C);
  4260. }
  4261. /*FI]*/
  4262. }
  4263.  
  4264.  
  4265. T0* r394string_aliaser(void){
  4266. if(fBC13string_aliaser==0){fBC13string_aliaser=1;{
  4267. {T21*n=((T21*)malloc(1));
  4268. oBC13string_aliaser=((T0*)n);
  4269. /*[IRF3.2make*//*[IRF3.6add1*/{T0* b1=((T0*)ms15_696);
  4270. r23put((T23*)(oBC21memory),b1,b1);
  4271. }/*]*/
  4272. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1915);
  4273. r23put((T23*)(oBC21memory),b1,b1);
  4274. }/*]*/
  4275. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_669);
  4276. r23put((T23*)(oBC21memory),b1,b1);
  4277. }/*]*/
  4278. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1980);
  4279. r23put((T23*)(oBC21memory),b1,b1);
  4280. }/*]*/
  4281. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9234);
  4282. r23put((T23*)(oBC21memory),b1,b1);
  4283. }/*]*/
  4284. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6405);
  4285. r23put((T23*)(oBC21memory),b1,b1);
  4286. }/*]*/
  4287. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12529);
  4288. r23put((T23*)(oBC21memory),b1,b1);
  4289. }/*]*/
  4290. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9801);
  4291. r23put((T23*)(oBC21memory),b1,b1);
  4292. }/*]*/
  4293. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16393);
  4294. r23put((T23*)(oBC21memory),b1,b1);
  4295. }/*]*/
  4296. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12550);
  4297. r23put((T23*)(oBC21memory),b1,b1);
  4298. }/*]*/
  4299. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4728);
  4300. r23put((T23*)(oBC21memory),b1,b1);
  4301. }/*]*/
  4302. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10740);
  4303. r23put((T23*)(oBC21memory),b1,b1);
  4304. }/*]*/
  4305. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12030);
  4306. r23put((T23*)(oBC21memory),b1,b1);
  4307. }/*]*/
  4308. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14817);
  4309. r23put((T23*)(oBC21memory),b1,b1);
  4310. }/*]*/
  4311. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6307);
  4312. r23put((T23*)(oBC21memory),b1,b1);
  4313. }/*]*/
  4314. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6643);
  4315. r23put((T23*)(oBC21memory),b1,b1);
  4316. }/*]*/
  4317. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12595);
  4318. r23put((T23*)(oBC21memory),b1,b1);
  4319. }/*]*/
  4320. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_5508);
  4321. r23put((T23*)(oBC21memory),b1,b1);
  4322. }/*]*/
  4323. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17448);
  4324. r23put((T23*)(oBC21memory),b1,b1);
  4325. }/*]*/
  4326. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1216);
  4327. r23put((T23*)(oBC21memory),b1,b1);
  4328. }/*]*/
  4329. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7928);
  4330. r23put((T23*)(oBC21memory),b1,b1);
  4331. }/*]*/
  4332. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6776);
  4333. r23put((T23*)(oBC21memory),b1,b1);
  4334. }/*]*/
  4335. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12804);
  4336. r23put((T23*)(oBC21memory),b1,b1);
  4337. }/*]*/
  4338. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1168);
  4339. r23put((T23*)(oBC21memory),b1,b1);
  4340. }/*]*/
  4341. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7576);
  4342. r23put((T23*)(oBC21memory),b1,b1);
  4343. }/*]*/
  4344. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_4956);
  4345. r23put((T23*)(oBC21memory),b1,b1);
  4346. }/*]*/
  4347. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16692);
  4348. r23put((T23*)(oBC21memory),b1,b1);
  4349. }/*]*/
  4350. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19124);
  4351. r23put((T23*)(oBC21memory),b1,b1);
  4352. }/*]*/
  4353. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_921);
  4354. r23put((T23*)(oBC21memory),b1,b1);
  4355. }/*]*/
  4356. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10680);
  4357. r23put((T23*)(oBC21memory),b1,b1);
  4358. }/*]*/
  4359. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_64);
  4360. r23put((T23*)(oBC21memory),b1,b1);
  4361. }/*]*/
  4362. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_368);
  4363. r23put((T23*)(oBC21memory),b1,b1);
  4364. }/*]*/
  4365. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_61);
  4366. r23put((T23*)(oBC21memory),b1,b1);
  4367. }/*]*/
  4368. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_246);
  4369. r23put((T23*)(oBC21memory),b1,b1);
  4370. }/*]*/
  4371. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_62);
  4372. r23put((T23*)(oBC21memory),b1,b1);
  4373. }/*]*/
  4374. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9408);
  4375. r23put((T23*)(oBC21memory),b1,b1);
  4376. }/*]*/
  4377. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_242);
  4378. r23put((T23*)(oBC21memory),b1,b1);
  4379. }/*]*/
  4380. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60);
  4381. r23put((T23*)(oBC21memory),b1,b1);
  4382. }/*]*/
  4383. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_45);
  4384. r23put((T23*)(oBC21memory),b1,b1);
  4385. }/*]*/
  4386. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_42);
  4387. r23put((T23*)(oBC21memory),b1,b1);
  4388. }/*]*/
  4389. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_216);
  4390. r23put((T23*)(oBC21memory),b1,b1);
  4391. }/*]*/
  4392. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1011);
  4393. r23put((T23*)(oBC21memory),b1,b1);
  4394. }/*]*/
  4395. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_450);
  4396. r23put((T23*)(oBC21memory),b1,b1);
  4397. }/*]*/
  4398. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8211);
  4399. r23put((T23*)(oBC21memory),b1,b1);
  4400. }/*]*/
  4401. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_43);
  4402. r23put((T23*)(oBC21memory),b1,b1);
  4403. }/*]*/
  4404. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_94);
  4405. r23put((T23*)(oBC21memory),b1,b1);
  4406. }/*]*/
  4407. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_552);
  4408. r23put((T23*)(oBC21memory),b1,b1);
  4409. }/*]*/
  4410. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_564);
  4411. r23put((T23*)(oBC21memory),b1,b1);
  4412. }/*]*/
  4413. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_47);
  4414. r23put((T23*)(oBC21memory),b1,b1);
  4415. }/*]*/
  4416. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_188);
  4417. r23put((T23*)(oBC21memory),b1,b1);
  4418. }/*]*/
  4419. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_35);
  4420. r23put((T23*)(oBC21memory),b1,b1);
  4421. }/*]*/
  4422. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035a);
  4423. r23put((T23*)(oBC21memory),b1,b1);
  4424. }/*]*/
  4425. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11424);
  4426. r23put((T23*)(oBC21memory),b1,b1);
  4427. }/*]*/
  4428. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2600);
  4429. r23put((T23*)(oBC21memory),b1,b1);
  4430. }/*]*/
  4431. r21add2(((T0*)ms15_22524));
  4432. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6702);
  4433. r23put((T23*)(oBC21memory),b1,b1);
  4434. }/*]*/
  4435. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11776);
  4436. r23put((T23*)(oBC21memory),b1,b1);
  4437. }/*]*/
  4438. r21add2(((T0*)ms15_29246));
  4439. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13419);
  4440. r23put((T23*)(oBC21memory),b1,b1);
  4441. }/*]*/
  4442. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765a);
  4443. r23put((T23*)(oBC21memory),b1,b1);
  4444. }/*]*/
  4445. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1644);
  4446. r23put((T23*)(oBC21memory),b1,b1);
  4447. }/*]*/
  4448. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19294);
  4449. r23put((T23*)(oBC21memory),b1,b1);
  4450. }/*]*/
  4451. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1772);
  4452. r23put((T23*)(oBC21memory),b1,b1);
  4453. }/*]*/
  4454. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15070);
  4455. r23put((T23*)(oBC21memory),b1,b1);
  4456. }/*]*/
  4457. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15570);
  4458. r23put((T23*)(oBC21memory),b1,b1);
  4459. }/*]*/
  4460. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27034);
  4461. r23put((T23*)(oBC21memory),b1,b1);
  4462. }/*]*/
  4463. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15190);
  4464. r23put((T23*)(oBC21memory),b1,b1);
  4465. }/*]*/
  4466. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15890);
  4467. r23put((T23*)(oBC21memory),b1,b1);
  4468. }/*]*/
  4469. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19151);
  4470. r23put((T23*)(oBC21memory),b1,b1);
  4471. }/*]*/
  4472. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13491);
  4473. r23put((T23*)(oBC21memory),b1,b1);
  4474. }/*]*/
  4475. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_28490);
  4476. r23put((T23*)(oBC21memory),b1,b1);
  4477. }/*]*/
  4478. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8750);
  4479. r23put((T23*)(oBC21memory),b1,b1);
  4480. }/*]*/
  4481. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_19437);
  4482. r23put((T23*)(oBC21memory),b1,b1);
  4483. }/*]*/
  4484. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824a);
  4485. r23put((T23*)(oBC21memory),b1,b1);
  4486. }/*]*/
  4487. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_23829);
  4488. r23put((T23*)(oBC21memory),b1,b1);
  4489. }/*]*/
  4490. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27272);
  4491. r23put((T23*)(oBC21memory),b1,b1);
  4492. }/*]*/
  4493. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_10528);
  4494. r23put((T23*)(oBC21memory),b1,b1);
  4495. }/*]*/
  4496. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13707);
  4497. r23put((T23*)(oBC21memory),b1,b1);
  4498. }/*]*/
  4499. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6846);
  4500. r23put((T23*)(oBC21memory),b1,b1);
  4501. }/*]*/
  4502. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1664);
  4503. r23put((T23*)(oBC21memory),b1,b1);
  4504. }/*]*/
  4505. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2760);
  4506. r23put((T23*)(oBC21memory),b1,b1);
  4507. }/*]*/
  4508. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730a);
  4509. r23put((T23*)(oBC21memory),b1,b1);
  4510. }/*]*/
  4511. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22248);
  4512. r23put((T23*)(oBC21memory),b1,b1);
  4513. }/*]*/
  4514. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22788);
  4515. r23put((T23*)(oBC21memory),b1,b1);
  4516. }/*]*/
  4517. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_30660);
  4518. r23put((T23*)(oBC21memory),b1,b1);
  4519. }/*]*/
  4520. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13995);
  4521. r23put((T23*)(oBC21memory),b1,b1);
  4522. }/*]*/
  4523. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_432);
  4524. r23put((T23*)(oBC21memory),b1,b1);
  4525. }/*]*/
  4526. r21add2(((T0*)ms15_22596));
  4527. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_60104);
  4528. r23put((T23*)(oBC21memory),b1,b1);
  4529. }/*]*/
  4530. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_24960);
  4531. r23put((T23*)(oBC21memory),b1,b1);
  4532. }/*]*/
  4533. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34432);
  4534. r23put((T23*)(oBC21memory),b1,b1);
  4535. }/*]*/
  4536. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11144);
  4537. r23put((T23*)(oBC21memory),b1,b1);
  4538. }/*]*/
  4539. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_18964);
  4540. r23put((T23*)(oBC21memory),b1,b1);
  4541. }/*]*/
  4542. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1724);
  4543. r23put((T23*)(oBC21memory),b1,b1);
  4544. }/*]*/
  4545. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1744);
  4546. r23put((T23*)(oBC21memory),b1,b1);
  4547. }/*]*/
  4548. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2765);
  4549. r23put((T23*)(oBC21memory),b1,b1);
  4550. }/*]*/
  4551. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_6762);
  4552. r23put((T23*)(oBC21memory),b1,b1);
  4553. }/*]*/
  4554. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1656);
  4555. r23put((T23*)(oBC21memory),b1,b1);
  4556. }/*]*/
  4557. r21add2(((T0*)ms15_60016));
  4558. r21add2(((T0*)ms15_26880));
  4559. r21add2(((T0*)ms15_33240));
  4560. r21add2(((T0*)ms15_21624));
  4561. r21add2(((T0*)ms15_60060));
  4562. r21add2(((T0*)ms15_26908));
  4563. r21add2(((T0*)ms15_33270));
  4564. r21add2(((T0*)ms15_21648));
  4565. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_17886);
  4566. r23put((T23*)(oBC21memory),b1,b1);
  4567. }/*]*/
  4568. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22824);
  4569. r23put((T23*)(oBC21memory),b1,b1);
  4570. }/*]*/
  4571. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21192);
  4572. r23put((T23*)(oBC21memory),b1,b1);
  4573. }/*]*/
  4574. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2785);
  4575. r23put((T23*)(oBC21memory),b1,b1);
  4576. }/*]*/
  4577. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11496);
  4578. r23put((T23*)(oBC21memory),b1,b1);
  4579. }/*]*/
  4580. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_53940);
  4581. r23put((T23*)(oBC21memory),b1,b1);
  4582. }/*]*/
  4583. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1035);
  4584. r23put((T23*)(oBC21memory),b1,b1);
  4585. }/*]*/
  4586. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2440);
  4587. r23put((T23*)(oBC21memory),b1,b1);
  4588. }/*]*/
  4589. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2445);
  4590. r23put((T23*)(oBC21memory),b1,b1);
  4591. }/*]*/
  4592. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_32730);
  4593. r23put((T23*)(oBC21memory),b1,b1);
  4594. }/*]*/
  4595. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12744);
  4596. r23put((T23*)(oBC21memory),b1,b1);
  4597. }/*]*/
  4598. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13662);
  4599. r23put((T23*)(oBC21memory),b1,b1);
  4600. }/*]*/
  4601. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8547);
  4602. r23put((T23*)(oBC21memory),b1,b1);
  4603. }/*]*/
  4604. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8505);
  4605. r23put((T23*)(oBC21memory),b1,b1);
  4606. }/*]*/
  4607. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9436);
  4608. r23put((T23*)(oBC21memory),b1,b1);
  4609. }/*]*/
  4610. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14193);
  4611. r23put((T23*)(oBC21memory),b1,b1);
  4612. }/*]*/
  4613. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915a);
  4614. r23put((T23*)(oBC21memory),b1,b1);
  4615. }/*]*/
  4616. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12915);
  4617. r23put((T23*)(oBC21memory),b1,b1);
  4618. }/*]*/
  4619. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_34528);
  4620. r23put((T23*)(oBC21memory),b1,b1);
  4621. }/*]*/
  4622. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13752);
  4623. r23put((T23*)(oBC21memory),b1,b1);
  4624. }/*]*/
  4625. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11336);
  4626. r23put((T23*)(oBC21memory),b1,b1);
  4627. }/*]*/
  4628. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_26156);
  4629. r23put((T23*)(oBC21memory),b1,b1);
  4630. }/*]*/
  4631. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_11376);
  4632. r23put((T23*)(oBC21memory),b1,b1);
  4633. }/*]*/
  4634. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27580);
  4635. r23put((T23*)(oBC21memory),b1,b1);
  4636. }/*]*/
  4637. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_33990);
  4638. r23put((T23*)(oBC21memory),b1,b1);
  4639. }/*]*/
  4640. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27443);
  4641. r23put((T23*)(oBC21memory),b1,b1);
  4642. }/*]*/
  4643. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_40358);
  4644. r23put((T23*)(oBC21memory),b1,b1);
  4645. }/*]*/
  4646. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_25584);
  4647. r23put((T23*)(oBC21memory),b1,b1);
  4648. }/*]*/
  4649. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7380);
  4650. r23put((T23*)(oBC21memory),b1,b1);
  4651. }/*]*/
  4652. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2730);
  4653. r23put((T23*)(oBC21memory),b1,b1);
  4654. }/*]*/
  4655. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7530);
  4656. r23put((T23*)(oBC21memory),b1,b1);
  4657. }/*]*/
  4658. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13977);
  4659. r23put((T23*)(oBC21memory),b1,b1);
  4660. }/*]*/
  4661. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_14175);
  4662. r23put((T23*)(oBC21memory),b1,b1);
  4663. }/*]*/
  4664. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16970);
  4665. r23put((T23*)(oBC21memory),b1,b1);
  4666. }/*]*/
  4667. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_8820);
  4668. r23put((T23*)(oBC21memory),b1,b1);
  4669. }/*]*/
  4670. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7326);
  4671. r23put((T23*)(oBC21memory),b1,b1);
  4672. }/*]*/
  4673. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22716);
  4674. r23put((T23*)(oBC21memory),b1,b1);
  4675. }/*]*/
  4676. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_12978);
  4677. r23put((T23*)(oBC21memory),b1,b1);
  4678. }/*]*/
  4679. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16770);
  4680. r23put((T23*)(oBC21memory),b1,b1);
  4681. }/*]*/
  4682. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_16850);
  4683. r23put((T23*)(oBC21memory),b1,b1);
  4684. }/*]*/
  4685. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9051);
  4686. r23put((T23*)(oBC21memory),b1,b1);
  4687. }/*]*/
  4688. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_21300);
  4689. r23put((T23*)(oBC21memory),b1,b1);
  4690. }/*]*/
  4691. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_56720);
  4692. r23put((T23*)(oBC21memory),b1,b1);
  4693. }/*]*/
  4694. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1800);
  4695. r23put((T23*)(oBC21memory),b1,b1);
  4696. }/*]*/
  4697. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_2780);
  4698. r23put((T23*)(oBC21memory),b1,b1);
  4699. }/*]*/
  4700. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_27456);
  4701. r23put((T23*)(oBC21memory),b1,b1);
  4702. }/*]*/
  4703. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_15650);
  4704. r23put((T23*)(oBC21memory),b1,b1);
  4705. }/*]*/
  4706. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_9275);
  4707. r23put((T23*)(oBC21memory),b1,b1);
  4708. }/*]*/
  4709. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_58075);
  4710. r23put((T23*)(oBC21memory),b1,b1);
  4711. }/*]*/
  4712. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_22140);
  4713. r23put((T23*)(oBC21memory),b1,b1);
  4714. }/*]*/
  4715. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_13833);
  4716. r23put((T23*)(oBC21memory),b1,b1);
  4717. }/*]*/
  4718. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_7314);
  4719. r23put((T23*)(oBC21memory),b1,b1);
  4720. }/*]*/
  4721. /*[IRF3.6add1*/{T0* b1=((T0*)ms15_1608);
  4722. r23put((T23*)(oBC21memory),b1,b1);
  4723. }/*]*/
  4724. /*]*/
  4725. }
  4726. }}
  4727. return oBC13string_aliaser;
  4728. }
  4729.  
  4730.  
  4731. T0* r394origin_base_class(T394* C){
  4732. T0* R=NULL;
  4733. {T68 se_tmp0;
  4734. R=(/*RF2*/((*(se_tmp0=r394start_position(C),&se_tmp0)))._base_class/*0*/);
  4735. }
  4736. return R;
  4737. }
  4738.  
  4739.  
  4740. T6 r394is_frozen(T394* C){
  4741. T6 R=0;
  4742. R=X82is_frozen((/*RF2*/(C)->_enclosing/*8*/));
  4743. return R;
  4744. }
  4745.  
  4746.  
  4747. T0* r394to_string(T394* C){
  4748. T0* R=NULL;
  4749. R=X82to_string((/*RF2*/(C)->_enclosing/*8*/));
  4750. return R;
  4751. }
  4752.  
  4753.  
  4754. void r394error(T68 a1,T0* a2){
  4755. r66add_position(a1);
  4756. /*[IRF3.6append*/{T0* b1=a2;
  4757. r7append((T7*)(oBC66explanation),b1);
  4758. }/*]*/
  4759. r66print_as_error((T66*)(oBC13eh));
  4760. }
  4761.  
  4762.  
  4763. T68 r394start_position(T394* C){
  4764. T68 R={NULL,0};
  4765. {T68 se_tmp0;
  4766. R=(*(se_tmp0=X82start_position((/*RF2*/(C)->_enclosing/*8*/)),&se_tmp0));
  4767. }
  4768. return R;
  4769. }
  4770.  
  4771.  
  4772. T0* r148add_comment(T148* C,T0* a1){
  4773. T0* R=NULL;
  4774. /*[IF*/
  4775. if(((a1)==((void*)(NULL)))||((/*(IRF4.6count*/r44count(((T44*)((/*RF2*/(((T81*)a1))->_list/*8*/))))/*)*/)==(0))){
  4776. R=((T0*)(C));
  4777. }
  4778. else{
  4779. {T229*n=((T229*)malloc(sizeof(*n))/*12*/);
  4780. *n=M229;
  4781. r229make(n,(T0*)C,a1);
  4782. R=((T0*)n);
  4783. }
  4784. }
  4785. /*FI]*/
  4786. return R;
  4787. }
  4788.  
  4789.  
  4790. void r148mapping_c_target(T0* a1){
  4791. T6 _flag=0;
  4792. /*[IF*/
  4793. {/*AT*/_flag=r325call_invariant_start(a1);
  4794. }
  4795. /*FI]*/
  4796. r325print_current((T325*)(oBC13cpp));
  4797. /*[IF*/
  4798. if(_flag){
  4799. /*[IRF3.2call_invariant_end*//*[IRF3.6put_character*/{T48* C1=(T48*)(oBC325out_c);
  4800. T3 b1=((T3)'\51');
  4801. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4802. }/*]*/
  4803. /*]*/
  4804. }
  4805. /*FI]*/
  4806. }
  4807.  
  4808.  
  4809. T0* r148to_runnable(T148* C,T0* a1){
  4810. T0* R=NULL;
  4811. /*[IF*/
  4812. if(((/*RF2*/(C)->_result_type/*12*/))==((void*)(NULL))){
  4813. (/*SFN*/C->_result_type)=a1;
  4814. R=((T0*)(C));
  4815. }
  4816.  else if(((/*RF2*/(C)->_result_type/*12*/))==((void*)(a1))){
  4817. R=((T0*)(C));
  4818. }
  4819. else{
  4820. {T148*n=((T148*)malloc(sizeof(*n))/*16*/);
  4821. *n=M148;
  4822. /*[IRF3.3make*/((((T148*)(n)))->_start_position)=((/*RF2*/(C)->_start_position/*4*/));
  4823. /*]*/
  4824. R=((T0*)n);
  4825. }
  4826. R=r148to_runnable(((T148*)R),a1);
  4827. }
  4828. /*FI]*/
  4829. return R;
  4830. }
  4831.  
  4832.  
  4833. T2 r148to_integer(T148* C){
  4834. T2 R=0;
  4835. r148error((/*RF2*/(C)->_start_position/*4*/),((T0*)ms14_45441));
  4836. return R;
  4837. }
  4838.  
  4839.  
  4840. void r148error(T68 a1,T0* a2){
  4841. r66add_position(a1);
  4842. /*[IRF3.6append*/{T0* b1=a2;
  4843. r7append((T7*)(oBC66explanation),b1);
  4844. }/*]*/
  4845. r66print_as_error((T66*)(oBC13eh));
  4846. }
  4847.  
  4848.  
  4849. T0* r148static_result_base_class(T148* C){
  4850. T0* R=NULL;
  4851. R=(/*RF2*/((/*RF2*/(C)->_start_position/*4*/))._base_class/*0*/);
  4852. return R;
  4853. }
  4854.  
  4855.  
  4856. void r148compile_to_c(T148* C){
  4857. /*[IF*/
  4858. if(X52is_user_expanded((/*RF2*/(C)->_result_type/*12*/))){
  4859. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4860. T3 b1=((T3)'\52');
  4861. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4862. }/*]*/
  4863. /*]*/
  4864. }
  4865. /*FI]*/
  4866. r325print_current((T325*)(oBC13cpp));
  4867. }
  4868.  
  4869.  
  4870. void r148mapping_c_arg(T148* C,T0* a1){
  4871. T0* _rt=NULL;
  4872. _rt=X52run_type((/*RF2*/(C)->_result_type/*12*/));
  4873. /*[IF*/
  4874. if(X52is_reference(_rt)){
  4875. /*[IF*/
  4876. if(X52is_reference(a1)){
  4877. /*[IRF3.5put_string*/r48put_string(((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/))),((T0*)ms14_1275));
  4878. /*]*/
  4879. r325print_current((T325*)(oBC13cpp));
  4880. }
  4881. else{
  4882. r325print_current((T325*)(oBC13cpp));
  4883. }
  4884. /*FI]*/
  4885. }
  4886.  else if(X52is_reference(a1)){
  4887. r325print_current((T325*)(oBC13cpp));
  4888. }
  4889.  else if(X52is_user_expanded(_rt)){
  4890. /*[IF*/
  4891. if(!(X52is_dummy_expanded(_rt))){
  4892. /*[IRF3.5put_character*//*[IRF3.6put_character*/{T48* C1=((T48*)((/*RF2*/((T325*)(oBC13cpp))->_current_out/*63*/)));
  4893. T3 b1=((T3)'\52');
  4894. putc(b1,((FILE*)((/*RF2*/(C1)->_output_stream/*4*/))));
  4895. }/*]*/
  4896. /*]*/
  4897. }
  4898. /*FI]*/
  4899. r325print_current((T325*)(oBC13cpp));
  4900. }
  4901. else{
  4902. r325print_current((T325*)(oBC13cpp));
  4903. }
  4904. /*FI]*/
  4905. }
  4906.  
  4907.  
  4908. void r314make(T314* C,T0* a1,T0* a2){
  4909. (/*SFN*/C->_name)=a1;
  4910. X175set_result_type((/*RF2*/(C)->_name/*4*/),a2);
  4911. }
  4912.  
  4913.  
  4914. void r314append_in(T314* C,T0* a1){
  4915. X170add_last(a1,(/*RF2*/(C)->_name/*4*/));
  4916. }
  4917.  
  4918.  
  4919. T0* r306try_to_undefine_aux(T306* C,T0* a1,T0* a2){
  4920. T0* R=NULL;
  4921. {T285*n=((T285*)malloc(sizeof(*n))/*40*/);
  4922. *n=M285;
  4923. r285from_effective(n,a1,(/*RF2*/(C)->_arguments/*20*/),(/*RF2*/(C)->_require_assertion/*28*/),(/*RF2*/(C)->_ensure_assertion/*32*/),a2);
  4924. R=((T0*)n);
  4925. }
  4926. return R;
  4927. }
  4928.  
  4929.